diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-11-30 22:45:05 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-11-30 22:45:05 +0000 |
| commit | 9876b1add9717934552b898c5ca1aa5ac733ea30 (patch) | |
| tree | f2f691d429d48825d38a31b7e3d7ff89c583093e | |
| parent | 5870ef777c68deb5d4eef71a43fc940545abe3e7 (diff) | |
| parent | 01f3ed015f84bccf8357677b5e8a35e63b16b3cd (diff) | |
| download | perlweeklychallenge-club-9876b1add9717934552b898c5ca1aa5ac733ea30.tar.gz perlweeklychallenge-club-9876b1add9717934552b898c5ca1aa5ac733ea30.tar.bz2 perlweeklychallenge-club-9876b1add9717934552b898c5ca1aa5ac733ea30.zip | |
Merge pull request #2895 from adamcrussell/challenge-088
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"). |