diff options
| -rw-r--r-- | challenge-088/adam-russell/prolog/ch-2.p | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-088/adam-russell/prolog/ch-2.p b/challenge-088/adam-russell/prolog/ch-2.p index 7c780ff4ae..d91fafbc86 100644 --- a/challenge-088/adam-russell/prolog/ch-2.p +++ b/challenge-088/adam-russell/prolog/ch-2.p @@ -44,7 +44,6 @@ write_remove_bottom(Matrix, UpdatedMatrix):- spiral(Matrix):- spiral(Matrix, _). -spiral([], _). spiral(Matrix, UpdatedMatrix):- write_remove_top(Matrix, UpdatedMatrix), write(","), @@ -52,8 +51,9 @@ spiral(Matrix, UpdatedMatrix):- reverse(RightRemainder, RemainderRight), write_remove_bottom(RemainderRight, BottomRemainder), write(","), - write_remove_left(BottomRemainder, LeftRemainder), - spiral(LeftRemainder, []). + reverse(BottomRemainder, RemainderBottom), + write_remove_left(RemainderBottom, LeftRemainder), + spiral(LeftRemainder, _). spiral(_, []):- write("\b"). |