Initial data commit

Task/Array-concatenation/SparForte/array-concatenation.sparforte

@@ -0,0 +1,36 @@
+#!/usr/local/bin/spar
+pragma annotate( summary, "arraycat" )
+       @( description, "Show how to concatenate two arrays in your language." )
+       @( category, "tutorials" )
+       @( author, "Ken O. Burtch" )
+       @( see_also, "http://rosettacode.org/wiki/Array_concatenation" );
+pragma license( unrestricted );
+
+pragma software_model( nonstandard );
+pragma restriction( no_external_commands );
+
+procedure arraycat is
+  type arrayOf3 is array(1..3) of integer;
+  a1 : constant arrayOf3 := (1, 2, 3);
+  a2 : constant arrayOf3 := (4, 5, 6);
+  type arrayOf6 is array(1..6) of integer;
+  a3 : arrayOf6;
+  p  : natural := arrays.first(a3);
+begin
+  -- In SparForte, & only works on strings and there's no indefinite ranges
+  -- or array slicing.  We have to do this the hard way, one element at a
+  -- time.
+  for i in arrays.first(a1)..arrays.last(a1) loop
+      a3(p) := a1(i);
+      p := @+1;
+  end loop;
+  for i in arrays.first(a2)..arrays.last(a2) loop
+      a3(p) := a2(i);
+      p := @+1;
+  end loop;
+  -- show the array
+  for i in arrays.first(a3)..arrays.last(a3) loop
+      put( a3(i) );
+  end loop;
+  new_line;
+end arraycat;