Rosetta Code

Permutations: Difference between revisions

Page Discussion

Permutations (view source)

Revision as of 12:10, 4 April 2022

50 bytes added ,  2 years ago
→‎{{header|Haskell}}: Applied Ormolu, tidied slightly in terms of second
(→‎{{header|Quackery}}: third time lucky, I hope!)
(→‎{{header|Haskell}}: Applied Ormolu, tidied slightly in terms of second)
Line 4,038:
A serialized version:
{{Trans|Mathematica}}
<lang haskell>permutationsimport ::Data.Bifunctor [a] -> [[a]](second)
 
permutations :: [a] -> [[a]]
permutations =
foldrlet ins (\x acxs ->n ac >>= uncurry (fmap<>) .$ inssecond (x :) <*> (enumFromTosplitAt 0n . lengthxs)) [[]]
in foldr
where
ins( \x xsa n =->
let ( a, b) >>= splitAt(fmap n. xsins x)
in a ++ x :<*> b(enumFromTo 0 . length)
)
[[]]
 
main :: IO ()
Hout
9,659

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/158842"