From 01f3ed015f84bccf8357677b5e8a35e63b16b3cd Mon Sep 17 00:00:00 2001 From: Adam Russell Date: Mon, 30 Nov 2020 17:33:26 -0500 Subject: bug fix to Prolog solution for Part 2 --- challenge-088/adam-russell/prolog/ch-2.p | 6 +++--- 1 file 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"). -- cgit