21 lines
477 B
Text
21 lines
477 B
Text
middle_square = cluster is seed, next
|
|
rep = null
|
|
own state: int
|
|
|
|
seed = proc (s: int)
|
|
state := s
|
|
end seed
|
|
|
|
next = proc () returns (int)
|
|
state := (state ** 2) / 1000 // 1000000
|
|
return(state)
|
|
end next
|
|
end middle_square
|
|
|
|
start_up = proc ()
|
|
po: stream := stream$primary_output()
|
|
middle_square$seed(675248)
|
|
for i: int in int$from_to(1, 5) do
|
|
stream$putl(po, int$unparse(middle_square$next()))
|
|
end
|
|
end start_up
|