Equilibrium index: Difference between revisions
Content added Content deleted
(→{{header|Wren}}: Library name change.) |
|||
| Line 1,130: | Line 1,130: | ||
=={{header|Haskell}}== |
=={{header|Haskell}}== |
||
<lang haskell>import System.Random (randomRIO) |
<lang haskell>import System.Random (randomRIO) |
||
import Data.List ( |
import Data.List (findIndices, takeWhile) |
||
import Control.Monad (replicateM) |
import Control.Monad (replicateM) |
||
import Control.Arrow ((&&&)) |
import Control.Arrow ((&&&)) |
||
equilibr xs = |
equilibr xs = |
||
| ⚫ | |||
elemIndices True . |
|||
| ⚫ | |||
flip ((&&&) <$> take <*> (drop . pred)) xs <$> [1 ..] |
flip ((&&&) <$> take <*> (drop . pred)) xs <$> [1 ..] |
||