Haskell

No description

fork
loading
Files
  • main.hs
main.hs
1
2
3
4
5
6
7
8
9
ponovi:: Int->a->[a]
ponovi 0 _=[]
ponovi n x=x:ponovi(n-1) x

zipwith2 :: (a->[a]->[a])->[a]->[a]->[a]
zipwith2 _ [] _ = []
zipwith2 [] _ _ = []
zipwith2 f (x:xs) (y:ys) = (f x y) : (zipwith2 xs ys)
GHCi, version 8.6.5