"vljastab" - 1 õppematerjal

2008 sügis arvestus töö

yl1. Kirjutada funktsioon takeUntilRep, mis vtab listist elemente kuni esimese korduva elemendini: takeUntilRep :: Eq a=> [a] -> [a] N: takeUntilRep [1,2,3,3] ==> [1,2,3] takeUntilRep [1,2,1,4,2] ==> [1,2] takeUntilRep [1,2,3,4,5] ==> [1,2,3,4,5] yl2. Kirjutada funktsioon, mis saades argumendiks tisarvu, vljastab selle pikkusega kikvimalikud binaarsed stringid. bins :: Int->[String] N: bins 0 ==>[""] bins 1 ==>["0","1"] bins 2==>["00","01","10","11"]