RosettaCodeData/Task/Loops-Increment-loop-index-within-loop-body/J/loops-increment-loop-index-within-loop-body-7.j
2023-07-01 13:44:08 -04:00

6 lines
125 B
Text

While =: conjunction def 'u^:(0~:v)^:_'
loop =: verb define@:x:
i =. y
}: increment_tail@:save_if_prime While(y >: #) i
)