fast funktionierende Version A2b4
This commit is contained in:
parent
831e723d92
commit
3d33cd4f63
Binary file not shown.
Binary file not shown.
|
@ -49,8 +49,8 @@ proc
|
||||||
TL(direction : CardinalDirection, colour : Colour) =
|
TL(direction : CardinalDirection, colour : Colour) =
|
||||||
show(direction, colour).
|
show(direction, colour).
|
||||||
(colour == red)
|
(colour == red)
|
||||||
-> ChangeLight(direction, colour)
|
-> (changeDirection(nextDirection(direction)) . changeDirection(direction) . ChangeLight(direction, colour))
|
||||||
<> changeDirection(nextDirection(direction)) . ChangeLight(direction, colour)
|
<> ChangeLight(direction, colour)
|
||||||
;
|
;
|
||||||
|
|
||||||
ChangeLight(direction : CardinalDirection, colour : Colour) =
|
ChangeLight(direction : CardinalDirection, colour : Colour) =
|
||||||
|
|
Loading…
Reference in New Issue