shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Slightly faster ++

--- a/lib/Data/List_Type.hs

+++ b/lib/Data/List_Type.hs

@@ -8,5 +8,7 @@

 -- much simpler.

 infixr 5 ++

 (++) :: forall a . [a] -> [a] -> [a]

-(++) [] ys = ys

-(++) (x : xs) ys = x : xs ++ ys 

+axs ++ ys =

+  let rec [] = ys

+      rec (x:xs) = x : rec xs

+  in  rec axs

-- 

⑨