Achilles numbers: Difference between revisions
Content deleted Content added
Thundergnat (talk | contribs) m →{{header|J}}: edit incorrect error message (still wrong but the message was too.) |
bugfix (thanks for the clear report @Thundergnat) |
||
Line 49:
=={{header|J}}==
Implementation:
<lang J>
strong=: achilles@(5&p:)</lang>
Line 60 ⟶ 58:
<lang J> 5 10$(#~ achilles) 1+i.10000 NB. first 50 achilles numbers
72 108 200 288 392 432 500 648 675 800
864 968 972 1125 1152 1323 1352 1372 1568
20{.(#~ strong * achilles) 1+i.100000 NB. first twenty strong achilles numbers
500 864 1944 2000 2592 3456 5000
+/achilles (+i.)/1 9*10^<:2 NB. count of two digit achilles numbers
1
Line 74 ⟶ 71:
12
+/achilles (+i.)/1 9*10^<:4
47
+/achilles (+i.)/1 9*10^<:5
192
+/achilles (+i.)/1 9*10^<:6
=={{header|Raku}}==
|