kino/src/Misc.hs

module Misc where

infixl 3 !?
(!?) :: [a] -> Int -> Maybe a
[]     !? i = Nothing
(x:xs) !? 0 = Just x
(x:xs) !? n = xs !? (n-1)
made loads of progress on ui 2021-09-14 17:06:34 +02:00			`module Misc where`

did even more work on UI! 2021-09-14 18:24:05 +02:00			`infixl 3 !?`
made loads of progress on ui 2021-09-14 17:06:34 +02:00			`(!?) :: [a] -> Int -> Maybe a`
			`[] !? i = Nothing`
			`(x:xs) !? 0 = Just x`
			`(x:xs) !? n = xs !? (n-1)`