Move-to-front algorithm: Difference between revisions
Added Quackery.
(Added Quackery.) |
|||
Line 2,051:
{{out}}
Similar to that of the procedural version above.
=={{header|Quackery}}==
<lang Quackery> [ []
26 times
[ char a i^ +
join ] ] constant is symbols ( --> $ )
[ [] symbols rot
witheach
[ over find
tuck pluck
swap join
dip join ]
drop ] is encode ( $ --> [ )
[ $ "" symbols rot
witheach
[ pluck
dup rot join
dip join ]
drop ] is decode ( [ --> $ )
[ dup echo$
say " --> "
dup encode
dup echo
say " --> "
decode dup echo$
= iff
[ say " :-)"]
else
[ say " :-(" ]
cr cr ] is task ( $ --> )
$ "broood bananaaa hiphophiphop"
nest$ witheach task</lang>
{{out}}
<pre>broood --> [ 1 17 15 0 0 5 ] --> broood :-)
bananaaa --> [ 1 1 13 1 1 1 0 0 ] --> bananaaa :-)
hiphophiphop --> [ 7 8 15 2 15 2 2 3 2 2 3 2 ] --> hiphophiphop :-)
</pre>
=={{header|Racket}}==
| |||