Let's play Haskell! - 1st session

first.hs

-- az elso nyers megvalositas szambol -> szoveg
fizzbuzzText n =
 	if n `mod` 3 == 0 then
		if n `mod` 5 == 0 then
			"FizzBuzz"
		else
			"Fizz"
	else
		if n `mod` 5 == 0 then
			"Buzz"
		else
			show n

-- binding letrehozas let in konstrukcioval
fizzbuzzTextLet n = 
	let
		fizz = if n `mod` 3 == 0 then "Fizz" else ""
		buzz = if n `mod` 5 == 0 then "Buzz" else ""
	in fizz ++ buzz

-- binding letrehozas where konstrukcioval
fizzbuzzTextWhere n = fizz ++ buzz
	where
		fizz = if n `mod` 3 == 0 then "Fizz" else ""
		buzz = if n `mod` 5 == 0 then "Buzz" else ""

-- maga a fizzbuzz list comprehension-nel
fizzbuzzListComp = [fizzbuzzText n | n <- [1..]]

-- maga a fizzbuzz mappel
fizzbuzzMap = map fizzbuzzTextLet [1..]

-- alternativ megvalositas, vegtelen listak + zip
threes = cycle ["", "", "Fizz"]
fives = cycle ["", "", "", "", "Buzz"]
fizzbuzzZip = zipWith (++) threes fives