RosettaCodeData/Task/Integer-sequence/Deja-Vu/integer-sequence.djv

8 lines
42 B
Plaintext

1
while /= -- dup dup:
!. dup
++
drop