Хочу считать из файла input.txt строки и парсить целые числа.
Вот код. Он не работатет.
module Main(main) where
import System.IO
parsefunc [] = []
parsefunc x =
let
nums = ['0', '-', '1', '2', '3', '4', '5', '6', '7', '8', '9']
somef [] b _ = b
somef (a:as) b c | a <- nums = somef as b (c++a)
| True = somef as (b++[c]) []
in
somef x [] []
readInput :: IO ()
readInput = do
inh <- openFile "input.txt" ReadMode
outh <- openFile "output.txt" WriteMode
inpStr <- hGetContents inh
print (parsefunc "1 2 3")
main = do
readInput
Учить только начал.
Хочу чтобы меня поправили и указали более расово верный вариант.
