diff options
| author | Adam Russell <ac.russell@live.com> | 2023-11-11 21:41:35 -0500 |
|---|---|---|
| committer | Adam Russell <ac.russell@live.com> | 2023-11-11 21:41:35 -0500 |
| commit | 7cac8442e1728964d5c3f655ac4fc0dc82659b40 (patch) | |
| tree | 42a88613d1ece9ae7b9f6d974628bf447410b9c4 | |
| parent | 5e9800877a932c2d5b021bf823eeda72e2028f5a (diff) | |
| download | perlweeklychallenge-club-7cac8442e1728964d5c3f655ac4fc0dc82659b40.tar.gz perlweeklychallenge-club-7cac8442e1728964d5c3f655ac4fc0dc82659b40.tar.bz2 perlweeklychallenge-club-7cac8442e1728964d5c3f655ac4fc0dc82659b40.zip | |
updated solutions
| -rw-r--r-- | challenge-242/adam-russell/prolog/ch-2.p | 3 | ||||
| -rw-r--r-- | challenge-242/adam-russell/r/ch-1.r | 4 | ||||
| -rw-r--r-- | challenge-242/adam-russell/r/ch-2.r | 2 |
3 files changed, 3 insertions, 6 deletions
diff --git a/challenge-242/adam-russell/prolog/ch-2.p b/challenge-242/adam-russell/prolog/ch-2.p index 53f8e4251a..e472cb2953 100644 --- a/challenge-242/adam-russell/prolog/ch-2.p +++ b/challenge-242/adam-russell/prolog/ch-2.p @@ -4,5 +4,4 @@ flip_matrix([], []). flip_matrix([Row|Matrix], [RowFlipped|MatrixFlipped]):- reverse(Row, RowReversed), maplist(flip, RowReversed, RowFlipped), - flip_matrix(Matrix, MatrixFlipped). - + flip_matrix(Matrix, MatrixFlipped).
\ No newline at end of file diff --git a/challenge-242/adam-russell/r/ch-1.r b/challenge-242/adam-russell/r/ch-1.r index 257182f3a6..e094ff2c90 100644 --- a/challenge-242/adam-russell/r/ch-1.r +++ b/challenge-242/adam-russell/r/ch-1.r @@ -7,9 +7,7 @@ missing_members <- function(self, l1, l2){ } missing_members.ch_1 <- function(self, l1, l2){ - r <- list() - r[[1]] <- unique(l1[!(l1 %in% l2)]) - r[[2]] <- unique(l2[!(l2 %in% l1)]) + r <- rbind(unique(l1[!(l1 %in% l2)]), unique(l2[!(l2 %in% l1)])) return(r) } diff --git a/challenge-242/adam-russell/r/ch-2.r b/challenge-242/adam-russell/r/ch-2.r index 2ab1e3ecd3..1b9ce700b4 100644 --- a/challenge-242/adam-russell/r/ch-2.r +++ b/challenge-242/adam-russell/r/ch-2.r @@ -1,4 +1,4 @@ -ch_2 <- function () { +ch_2 <- function() { structure(list(), class = "ch_2") } |