bsc-leon-vatthauer/slides/code-examples/example.hs

hd :: [a] -> a
hd (x : _) = x

main :: IO ()
main = do
  print (Main.reverse ([1,2,3]::[Int]))
  print (hd []::[String])

reverse :: [a] -> [a]
reverse l = reverseAcc l []
  where
    reverseAcc []     a = a
    reverseAcc (x:xs) a = reverseAcc xs (x:a)
work on slides 2024-01-03 19:51:04 +01:00			`hd :: [a] -> a`
			`hd (x : _) = x`

			`main :: IO ()`
Work on slides 2024-01-11 13:38:32 +01:00			`main = do`
			`print (Main.reverse ([1,2,3]::[Int]))`
			`print (hd []::[String])`
styling 2024-01-06 15:04:04 +01:00
			`reverse :: [a] -> [a]`
update code examples 2024-01-11 13:42:27 +01:00			`reverse l = reverseAcc l []`
styling 2024-01-06 15:04:04 +01:00			`where`
update code examples 2024-01-11 13:42:27 +01:00			`reverseAcc [] a = a`
			`reverseAcc (x:xs) a = reverseAcc xs (x:a)`