37 lines
770 B
Perl
37 lines
770 B
Perl
|
read_file(Stream, []) :-
|
||
|
|
at_end_of_stream(Stream).
|
||
|
|
|
||
|
|
read_file(Stream, [X|L]) :-
|
||
|
|
\+ at_end_of_stream(Stream),
|
||
|
|
read_line_to_codes(Stream, C),
|
||
|
|
atom_chars(A, C),
|
||
|
|
read_file(Stream, L),
|
||
|
|
atom_number(A, X).
|
||
|
|
|
||
|
|
main :-
|
||
|
|
open('../input/01', read, Stream),
|
||
|
|
read_file(Stream, Lines), !,
|
||
|
|
close(Stream),
|
||
|
|
step(Lines, N),
|
||
|
|
print(N).
|
||
|
|
|
||
|
|
step([], 0).
|
||
|
|
step([_], 0).
|
||
|
|
step([_, _], 0).
|
||
|
|
step([A|Tail], Res) :-
|
||
|
|
step1(A, Tail, Res).
|
||
|
|
step1(A, [B|Tail], Res) :-
|
||
|
|
step2(A, B, Tail, Res).
|
||
|
|
step2(A, B, [C|Tail], Res) :-
|
||
|
|
step_(A, B, C, Tail, Res).
|
||
|
|
|
||
|
|
step_(_, _, _, [], 0).
|
||
|
|
step_(A, B, C, [N|Tail], Res) :-
|
||
|
|
A < N,
|
||
|
|
step_(B, C, N, Tail, TailRes),
|
||
|
|
Res is TailRes + 1.
|
||
|
|
step_(A, B, C, [N|Tail], Res) :-
|
||
|
|
A >= N,
|
||
|
|
step_(B, C, N, Tail, Res).
|
||
|
|
|