RosettaCodeData/Task/Loops-While/Dc/loops-while.dc
2019-09-12 10:33:56 -07:00

1 line
44 B
Text

[ q ] sQ [ d 0!<Q p 2 / lW x ] sW 1024 lW x