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}}==
1,462

edits