Anonymous user
Number names: Difference between revisions
m
→[[Number names#ALGOL 68]]: tidy for iterator loop
m (→[[Number names#ALGOL 68]]: add an alternative version in a python style...) |
m (→[[Number names#ALGOL 68]]: tidy for iterator loop) |
||
Line 258:
ELSE
STRING out := "", sep:="";
# FOR e, x IN # base1000 rev(n, # DO #
(INT e, LINT x)VOID:
IF x NE 0 THEN
big(e,x) + sep +=: out;
sep := IF e = 0 AND x < 100 THEN " and " ELSE ", " FI
FI
# OD
out
FI
Line 289:
2010: two thousand and ten
</pre>
=={{header|BASIC}}==
{{works with|QBasic}}
| |||