Curzon numbers: Difference between revisions
Content deleted Content added
m →{{header|Quackery}}: renamed word |
m →{{header|Quackery}}: refactored |
||
Line 479: | Line 479: | ||
<lang Quackery> [ number$ |
<lang Quackery> [ number$ |
||
space 4 of swap join |
space 4 of swap join |
||
-5 split nip echo$ ] is rjust ( n --> ) |
-5 split nip echo$ ] is rjust ( n --> ) |
||
[ 5 times |
[ 5 times |
||
Line 485: | Line 485: | ||
[ behead rjust ] |
[ behead rjust ] |
||
cr ] |
cr ] |
||
drop ] is |
drop ] is display ( [ --> ) |
||
[ temp take |
|||
over join |
|||
temp put ] |
|||
[ 2dup ** 1+ |
[ 2dup ** 1+ |
||
unrot * 1+ mod 0 = ] is curzon ( n n --> b ) |
unrot * 1+ mod 0 = ] is curzon ( n n --> b ) |
||
5 times |
5 times |
||
Line 505: | Line 509: | ||
2drop |
2drop |
||
temp take |
temp take |
||
50 split swap |
50 split swap display |
||
say " ... " |
say " ... " |
||
-1 peek echo cr cr ] |
-1 peek echo cr cr ] |
||
</lang> |
|||
{{out}} |
{{out}} |