JortSort: Difference between revisions
→{{header|Haskell}}: Added a variant expressed as an applicative.
(→{{header|Haskell}}: Added a variant expressed as an applicative.) |
|||
Line 517:
jortSort :: (Ord a) => [a] -> Bool
jortSort list = list == sort list</lang>
or in applicative terms:
<lang haskell>import Data.List (sort)
jortSort
:: (Ord a)
=> [a] -> Bool
jortSort = (==) <*> sort
--------------------------- TEST ---------------------------
main :: IO ()
main = print $ jortSort <$> [[4, 5, 1, 3, 2], [1, 2, 3, 4, 5]]</lang>
{{Out}}
<pre>[False,True]</pre>
=={{header|J}}==
| |||