mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-20 18:21:47 +03:00
20 lines
391 B
Idris
20 lines
391 B
Idris
|
module Issue2362
|
||
|
|
|
||
|
|
import Data.Vect
|
||
|
|
|
||
|
|
%default total
|
||
|
|
|
||
|
|
items : Vect ? String
|
||
|
|
items = [ "0.0", "0", "0.", ".0", "+0", "-0", "string", "" ]
|
||
|
|
|
||
|
|
zeroes_double : Vect ? Double
|
||
|
|
zeroes_double = cast <$> items
|
||
|
|
|
||
|
|
zeroes_show : Vect ? String
|
||
|
|
zeroes_show = show <$> zeroes_double
|
||
|
|
|
||
|
|
main : IO ()
|
||
|
|
main = do
|
||
|
|
printLn $ all (== head zeroes_double) zeroes_double
|
||
|
|
printLn $ all (== head zeroes_show) zeroes_show
|