Rosetta Code

Motzkin numbers: Difference between revisions

Page Discussion

Motzkin numbers (view source)

Revision as of 09:12, 23 March 2022

268 bytes removed ,  2 years ago
m
→‎{{header|Quackery}}: linked to Primality by trial division
m (→‎{{header|Quackery}}: tweaked prime)
m (→‎{{header|Quackery}}: linked to Primality by trial division)
Line 1,472:
=={{header|Quackery}}==
 
<code>sqrtisprime</code> is defined at [[IsqrtPrimality (integerby squaretrial root) of Xdivision#Quackery]].
 
<lang Quackery> [ dup 4 < iff' [ 1 >1 ] done
dup 1 & not iff [ drop false ] done
true swap dup sqrt
0 = iff [ 2drop not ] done
1 >> times
[ dup i^ 1 << 3 + mod 0 = if
[ dip not conclude ] ]
drop ] is prime ( n --> b )
 
' [ 1 1 ]
41 times
[ dup -2 split nip do
Line 1,491 ⟶ 1,482:
behead drop
witheach
[ i^ echo sp dup echo primeisprime if [ say " prime" ] cr ]</lang>
 
{{out}}
GordonCharlton
1,462

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/314990"