RosettaCodeData/Task/Tau-function/J/tau-function.j

4 lines
54 B
Plaintext

tau =: [:+/0=>:@i.|]
echo tau"0 [5 20$>:i.100
exit ''