remove vestigial code
This commit is contained in:
parent
b95d7f4d32
commit
ce1a091cfc
1 changed files with 0 additions and 3 deletions
|
|
@ -9,9 +9,6 @@ traceOut x = traceShow x x
|
|||
(***) :: (a -> a') -> (b -> b') -> (a, b) -> (a', b')
|
||||
(f *** g) (x, y) = (f x, g y)
|
||||
|
||||
(****) :: (a -> a' -> a'') -> (b -> b' -> b'') -> (a, b) -> (a', b') -> (a'', b'')
|
||||
(f **** g) (p, q) (r, s) = (f p r, g q s)
|
||||
|
||||
addFirst :: [[a]] -> a -> [[a]]
|
||||
addFirst [] x = [[x]]
|
||||
addFirst (y:ys) x = (x : y) : ys
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue