aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Task/Nth/Maxima/nth.maxima Normal file
View file

@ -0,0 +1,13 @@
lrange(a, b) := makelist(i, i, a, b)$
suffixify(n) := block(
suffixes: ["'st", "'nd", "'rd"],
lastd: mod(n, 10),
last2d: mod(n, 100),
sflag: member(lastd, lrange(1, 3)),
suffix: if sflag and last2d#10+lastd then suffixes[lastd] else "'th",
sconcat(n, suffix)
)$
test_nums: append(lrange(0, 25), lrange(250, 265), lrange(1000, 1025))$
map(suffixify, test_nums);