RosettaCodeData/Task/Loops-While/Dc/loops-while.dc

2 lines
44 B
Plaintext

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