Teacup rim text: Difference between revisions
Added Arturo implementation
Drkameleon (talk | contribs) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 74:
rotateable?: function [w][
loop 1..dec size w 'i [
rotated: rotate
if or? [rotated = w][not? contains? wordset rotated] ->
return false
Line 84:
loop select wordset 'word [3 =< size word] 'word [
if rotateable? word ->
'results ++ @[ sort map 1..size word 'i [ rotate
]
loop sort unique results 'result
print join.with: " -> " map 1..size root 'i [ rotate.left root i]
]</lang>
{{out}}
<pre>
=={{header|AutoHotkey}}==
| |||