Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
:- module randwalk.
:- interface.
:- import_module io, random.
:- pred main(io::di, io::uo) is det.
:- implementation.
main(!IO) :-
Steps = 10,
Pos = 0,
for I = 1 to Steps do (
Pos = Pos + (if random(0,1) = 0 then -1 else 1),
io.write_int(Pos, !IO), io.write_string("\n", !IO)
).Coding works best on desktop or with an external keyboard.