Mertens function: Difference between revisions
Added Quackery.
(Added Quackery.) |
(Added Quackery.) |
||
Line 3,229:
<syntaxhighlight lang="Quackery"> [ ' [ 0 ]
swap 1+ times
[ dup -1 peek
i^ 1+ mobius
+ join ]
behead drop ] is mertens ( n --> [ )
[ say " "▼
99 times▼
[ dup i^ peek▼
dup dup▼
-1 > if sp▼
abs 10 < if sp▼
echo▼
i^ 1+ 10 mod▼
9 = if cr ]▼
drop ] is grid ( [ --> )▼
[ 0 swap
Line 3,246 ⟶ 3,257:
rot + swap ]
drop ] is crossings ( [ --> n )
▲ [ say " "
▲ 99 times
▲ [ dup i^ peek
▲ dup dup
▲ -1 > if sp
▲ abs 10 < if sp
▲ echo
▲ i^ 1+ 10 mod
▲ 9 = if cr ]
▲ drop ] is grid ( [ --> )
1000 mertens
| |||