RosettaCodeData/Task/Command-line-arguments/LSE64/command-line-arguments.lse64
2023-07-01 13:44:08 -04:00

4 lines
120 B
Text

argc , nl # number of arguments (including command itself)
0 # argument
dup arg dup 0 = || ,t 1 + repeat
drop