История изменений
Исправление Siborgium, (текущая версия) :
Программа
import System.Environment
import System.Exit
main = fmap ((1+) . length) getArgs >>= (exitWith . ExitFailure)
Компиляция
ghc simplest.hs
Вывод
$ ./args ; echo $?
1
$ ./args - ; echo $?
2
$ ./args - - ; echo $?
3
Исправление Siborgium, :
Программа
import System.Environment
import System.Exit
main = fmap ((1+) . length) getArgs >>= (exitWith . ExitFailure)
Компиляция
ghc simplest.hs
Вывод
[~] >
$ ./args ; echo $?
1
$ ./args - ; echo $?
2
$ ./args - - ; echo $?
3
Исходная версия Siborgium, :
Программа
import System.Environment
main = fmap ((1+) . length) getArgs >>= print
Компиляция
ghc simplest.hs
Вывод
[~] > ./args ; echo $?
./args - ; echo $?
./args - - ; echo $?
1
0
2
0
3
0