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')
|
(***) :: (a -> a') -> (b -> b') -> (a, b) -> (a', b')
|
||||||
(f *** g) (x, y) = (f x, g y)
|
(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 :: [[a]] -> a -> [[a]]
|
||||||
addFirst [] x = [[x]]
|
addFirst [] x = [[x]]
|
||||||
addFirst (y:ys) x = (x : y) : ys
|
addFirst (y:ys) x = (x : y) : ys
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue