mirror of
https://github.com/ilyakooo0/Idris-dev.git
synced 2024-09-21 22:17:19 +03:00
43127b17a7
They can be imported from the modules Data.Fin, Data.Vect, and Data.So respectively. The general thinking here is that not every program is going to need these, and they are often used especially by newcomers in place of something more appropriate. Also, all of them are useful for teaching, which means it is instructive for tutorials to introduce them and have people implement them themselves.
44 lines
1.1 KiB
Idris
44 lines
1.1 KiB
Idris
module Main
|
|
|
|
import Data.Vect
|
|
|
|
emptyString : String
|
|
emptyString = ""
|
|
|
|
helloWorld : String
|
|
helloWorld = "hello world!"
|
|
|
|
spaceOnly : String
|
|
spaceOnly = " "
|
|
|
|
tabOnly : String
|
|
tabOnly = "\t"
|
|
|
|
linebreakOnly : String
|
|
linebreakOnly = "\n"
|
|
|
|
all : Vect 5 String
|
|
all =
|
|
[ emptyString
|
|
, helloWorld
|
|
, spaceOnly
|
|
, tabOnly
|
|
, linebreakOnly
|
|
]
|
|
|
|
lengthAll : Nat
|
|
lengthAll = Strings.length $ foldl (++) (head all) (tail all)
|
|
|
|
sumOfAllLengths : Nat
|
|
sumOfAllLengths = foldl (\ l, s => l + (Strings.length s)) (Strings.length $ head all) (tail all)
|
|
|
|
|
|
main : IO ()
|
|
main = do putStrLn $ "length of: '" ++ emptyString ++ "' is: " ++ (show $ length emptyString)
|
|
putStrLn $ "length of: '" ++ helloWorld ++ "' is: " ++ (show $ length helloWorld)
|
|
putStrLn $ "length of: '" ++ spaceOnly ++ "' is: " ++ (show $ length spaceOnly)
|
|
putStrLn $ "length of: '" ++ tabOnly ++ "' is: " ++ (show $ length tabOnly)
|
|
putStrLn $ "length of: '" ++ linebreakOnly ++ "' is: " ++ (show $ length linebreakOnly)
|
|
putStrLn $ "length of all matches sum of all lengths: " ++ (show $ lengthAll == sumOfAllLengths)
|
|
|