Revision as of 04:31, 20 March 2020 (view source) SqrtNegInf (talk \| contribs) m (→‎{{header\|Potion}}: Fix comment: Perl 6 --> Raku) ← Older edit		Revision as of 10:43, 20 March 2020 (view source) Hout (talk \| contribs) m (→‎Searching permutations: hindent, tidying) Newer edit →
Line 971: topswops :: Int -> Int topswops n = maximum $ map tops $ permutations [1 .. n] where tops (1 : _) = 0 tops xa@(x : _) = 1 + tops reordered where reordered = reverse (take x xa) ++ drop x xa main = ~~mapM_~~ mapM_ (putStrLn . (\x(++) -<$> ~~putStrLn $~~ show ~~x ++~~<*> (":\t" ++) . show ~~(topswops~~. xtopswops)) [1 .. 10]</lang> ~~[1 .. 10]</lang>~~ {{out}} <pre>1: 0

Topswops: Difference between revisions

Topswops (view source)