Add more prax2 programs

Bu işleme şunda yer alıyor:
Arti Zirk 2017-09-19 17:26:00 +03:00
ebeveyn 2db2cfea06
işleme 5b4b4271fd
2 değiştirilmiş dosya ile 27 ekleme ve 0 silme

23
prax2/calc2.hs Normal dosya
Dosyayı Görüntüle

@ -0,0 +1,23 @@
getFloat :: IO Float
getFloat = do
readLn :: IO Float
main :: IO ()
main = do
putStr "Sisesta 1. nr: "
val1 <- getFloat
putStr "Sisesta 2. nr: "
val2 <- getFloat
putStr "Sisesta 3. nr: "
val3 <- getFloat
putStr "Sisesta tehe(+-*/): "
tehe <- getLine
putStr "Tulemus: "
case tehe of
"+" -> putStrLn $ (show(val1 + val2 + val3))
"-" -> putStrLn $ (show(val1 - val2 - val3))
"*" -> putStrLn $ (show(val1 * val2 * val3))
"/" -> putStrLn $ (show(val1 / val2 / val3))
_ -> putStrLn "Ei oska tehet teha"

4
prax2/notBool.hs Normal dosya
Dosyayı Görüntüle

@ -0,0 +1,4 @@
#!/usr/bin/env runghc
notBool :: Bool -> Bool
notBool x = not x