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

18
Task/Formatted-numeric-output/AppleScript/formatted-numeric-output.applescript Normal file
View file

@ -0,0 +1,18 @@
on fixedlength(x, max)
if x < 0 then
set pref to "-"
set x to -x
else
set pref to ""
end if
set s to x as text
set min to (length of s) + (length of pref)
repeat max - min times
set s to "0" & s
end repeat
return pref & s
end fixedlength
repeat with x in {7.125, -7.125, 77.125, 777.125}
log fixedlength(x, 9)
end repeat