JortSort: Difference between revisions
Content added Content deleted
(→{{header|Haskell}}: Added a variant expressed as an applicative.) |
|||
| Line 517: | Line 517: | ||
jortSort :: (Ord a) => [a] -> Bool |
jortSort :: (Ord a) => [a] -> Bool |
||
jortSort list = list == sort list</lang> |
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}}== |
=={{header|J}}== |
||