arborium-haskell 2.12.4

Haskell grammar for arborium (tree-sitter bindings)
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14

module Main where

import Data.List (sort)

quicksort :: Ord a => [a] -> [a]
quicksort [] = []
quicksort (x:xs) =
    quicksort smaller ++ [x] ++ quicksort larger
  where
    smaller = [a | a <- xs, a <= x]
    larger  = [a | a <- xs, a > x]

main :: IO ()
main = print $ quicksort [3, 1, 4, 1, 5, 9, 2, 6]