fast funktionierende Version A2b4

This commit is contained in:
Johannes Theiner 2020-05-10 09:23:44 +02:00
parent 831e723d92
commit 3d33cd4f63
3 changed files with 2 additions and 2 deletions

Binary file not shown.

Binary file not shown.

View File

@ -49,8 +49,8 @@ proc
TL(direction : CardinalDirection, colour : Colour) =
show(direction, colour).
(colour == red)
-> ChangeLight(direction, colour)
<> changeDirection(nextDirection(direction)) . ChangeLight(direction, colour)
-> (changeDirection(nextDirection(direction)) . changeDirection(direction) . ChangeLight(direction, colour))
<> ChangeLight(direction, colour)
;
ChangeLight(direction : CardinalDirection, colour : Colour) =