Rosetta Code

Rep-string: Difference between revisions

Page Discussion

Rep-string (view source)

Revision as of 14:14, 4 June 2021

91 bytes removed ,  3 years ago
m
→‎{{header|Quackery}}: bug fix
(Added Quackery.)
Line 3,294:
<code>factors</code> is defined at [http://rosettacode.org/wiki/Factors_of_an_integer#Quackery Factors of an integer].
 
<lang Quackery> [ []false temp putswap
falsedup swapsize 1 > if
dup size 2[ <[] temp put iff
swap done dup size factors
dup size factors -1 split drop
-1 split drop witheach
[ 2dup split drop
witheach
dip [ 2dupover size swap split/ drop]
dip [ over size swapdup /temp ]replace
dup temp replace swap of over = if
swap of over = if [ drop not
[ drop not temp share
temp share conclude ] ]
temp release ] swap ] conclude ] ] is rep$ ( $ --> $ b )
swap temp release ] is rep$ ( $ --> $ b )
 
[ dup rep$ iff
Line 3,318 ⟶ 3,317:
[ say 'There is no rep-string for "'
nip echo$ say '".' ]
cr ] is task ( $ --> )</lang>
 
$ "1001110011 1110111011 0010010010
1010101010 1111111111 0100101101
0100100 101 11 00 1"
nest$ witheach task</lang>
 
{{out}}
GordonCharlton
1,462

edits

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