RosettaCodeData/Task/Queue-Usage/PostScript/queue-usage.ps
2023-07-01 11:58:00 -04:00

6 lines
85 B
PostScript

[1 2 3 4 5] 6 exch tadd
= [1 2 3 4 5 6]
uncons
= 1 [2 3 4 5 6]
[] empty?
=true