Initial data commit

Task/Array-concatenation/Scheme/array-concatenation-1.ss

@@ -0,0 +1,5 @@
+; in r5rs, there is append for lists, but we'll need to define vector-append
+(define (vector-append . arg) (list->vector (apply append (map vector->list arg))))
+
+(vector-append #(1 2 3 4) #(5 6 7) #(8 9 10))
+; #(1 2 3 4 5 6 7 8 9 10)

Task/Array-concatenation/Scheme/array-concatenation-2.ss

@@ -0,0 +1,25 @@
+(use gauche.array)
+
+(define (print-matrix m)
+  (define row-num #f)
+  (array-for-each-index m
+    (lambda (row col)
+      (when (and row-num (not (= row-num row))) (newline))
+      (format #t "~a " (array-ref m row col))
+      (set! row-num row)))
+  (newline))
+
+(define a
+  #,(<array> (0 3 0 2)
+      a b
+      c d
+      e f))
+
+(define b
+  #,(<array> (0 3 0 2)
+      1 2
+      3 4
+      5 6))
+
+(print-matrix (array-concatenate a b))
+(print-matrix (array-concatenate a b 1))