language: Erlang (erl-5.7.3)
date: 113 days 22 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

-module(prog).
-export([main/0]).
 
main() ->
        loop().
loop() ->
        case io:fread( "","~d" ) of
                eof ->
                        true;
                {ok, X} ->
                        [Y] = X,
                        if
                                Y == 42 ->
                                        true;
                                true ->
                                        io:fwrite( "~B\n",X ),
                                        loop()
                        end
        end.