From 7cac8442e1728964d5c3f655ac4fc0dc82659b40 Mon Sep 17 00:00:00 2001
From: Adam Russell <ac.russell@live.com>
Date: Sat, 11 Nov 2023 21:41:35 -0500
Subject: updated solutions

---
 challenge-242/adam-russell/prolog/ch-2.p | 3 +--
 challenge-242/adam-russell/r/ch-1.r      | 4 +---
 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")
 }
 
-- 
cgit