remove vestigial code

This commit is contained in:
toast 2025-12-07 17:59:05 +00:00
parent b95d7f4d32
commit ce1a091cfc

View file

@ -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