Inventory sequence: Difference between revisions
→{{header|Quackery}}: refactored
(Added Quackery.) |
(→{{header|Quackery}}: refactored) |
||
Line 624:
=={{header|Quackery}}==
<syntaxhighlight lang="Quackery"> [ 0 unrot witheach
[ over
▲ [ dip 1+ ] ]
▲ drop join ] is countem ( [ n --> [ )
tuck join
dip [ 0 != tuck * + ] ] is additem ( n [ --> n [ )
0 [] 100 times additem
dup -1 peek 0 >▼
witheach
[ dup 10 < if sp
echo sp
i^
drop
cr
0
[
say "Element #"
dup size 1 - echo
say " is "
-1 peek
say "."
drop</syntaxhighlight>
{{out}}
Line 672 ⟶ 665:
Element #24255 is 1001.</pre>
=={{header|Raku}}==
| |||