diff options
| author | Adam Russell <ac.russell@live.com> | 2020-11-30 17:33:26 -0500 |
|---|---|---|
| committer | Adam Russell <ac.russell@live.com> | 2020-11-30 17:33:26 -0500 |
| commit | 01f3ed015f84bccf8357677b5e8a35e63b16b3cd (patch) | |
| tree | 63d6abac8ee2cea9a9a3f1c4f8969fb5ed44a579 | |
| parent | 4227c63624b68c731b4fdcdf973e0baabee82342 (diff) | |
| download | perlweeklychallenge-club-01f3ed015f84bccf8357677b5e8a35e63b16b3cd.tar.gz perlweeklychallenge-club-01f3ed015f84bccf8357677b5e8a35e63b16b3cd.tar.bz2 perlweeklychallenge-club-01f3ed015f84bccf8357677b5e8a35e63b16b3cd.zip | |
bug fix to Prolog solution for Part 2
| -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"). |