Towers of Hanoi: Difference between revisions

Content added Content deleted
m (→‎{{header|Haskell}}: (matched names to label strings))
Line 1,696: Line 1,696:
((justifyLeft 6 ' ' <$>) <$> transpose (hanoi 5 "left" "right" "mid"))
((justifyLeft 6 ' ' <$>) <$> transpose (hanoi 5 "left" "right" "mid"))
where
where
justifyLeft n c s = take n (s ++ replicate n c)</lang>
justifyLeft n c s = take n (s <> replicate n c)</lang>
{{Out}}
{{Out}}
<pre>left -> right
<pre>left -> right