Strange numbers: Difference between revisions

→‎{{header|Quackery}}: fixed name of function
(A)
(→‎{{header|Quackery}}: fixed name of function)
Line 2,408:
 
<syntaxhighlight lang="Quackery"> [ ' [ 2 3 5 7 11 13 17 ]
find 7 < ] is prime ( n --> b )
 
[ 10 /mod
Line 2,414:
tuck - abs prime not iff
[ 2drop false ] done
- abs prime ] is strange+ ( n --> b )
 
[] 399 times
[ i^ 101 +
dup strange+ iff
join else drop ]
dup size echo
1,462

edits