RosettaCodeData/Task/Giuga-numbers/J/giuga-numbers-1.j
2023-07-01 13:44:08 -04:00

1 line
59 B
Text

giguaP=: {{ (1<y)*(-.1 p:y)**/(=<.) y ((_1+%)%]) q: y }}"0