From 5df86cbd96070b3ae9ad742068d62c1b040000ba Mon Sep 17 00:00:00 2001
From: programarivm <info@programarivm.com>
Date: Thu, 26 Sep 2019 10:38:49 +0100
Subject: [PATCH] ArraysShortened.m is been added

---
 01-the-very-basics/ArraysShortened.m | 96 ++++++++++++++++++++++++++++
 README.md                            | 27 ++++++++
 2 files changed, 123 insertions(+)
 create mode 100644 01-the-very-basics/ArraysShortened.m

diff --git a/01-the-very-basics/ArraysShortened.m b/01-the-very-basics/ArraysShortened.m
new file mode 100644
index 0000000..9dcf4e2
--- /dev/null
+++ b/01-the-very-basics/ArraysShortened.m
@@ -0,0 +1,96 @@
+; This is the exact same functionality as in Arrays.m.
+; The only difference: commands are shortened to a single letter.
+
+; unidimensional array
+
+  w "Approaching the solar system:",!
+
+  s planets(1)="Mercury"
+  s planets(2)="Venus"
+  s planets(3)="Earth"
+  s planets(4)="Mars"
+  s planets(5)="Jupiter"
+  s planets(6)="Saturn"
+  s planets(7)="Uranus"
+  s planets(8)="Neptune"
+  s planets(9)="Pluto"
+
+  f i=1:1:9 d
+  . w planets(i),!
+
+; multidimensional array
+
+  s september(1,1)=26
+  s september(1,2)=27
+  s september(1,3)=28
+  s september(1,4)=29
+  s september(1,5)=30
+  s september(1,6)=31
+  s september(1,7)=1
+  s september(2,1)=2
+  s september(2,2)=3
+  s september(2,3)=4
+  s september(2,4)=5
+  s september(2,5)=6
+  s september(2,6)=7
+  s september(2,7)=8
+  s september(3,1)=9
+  s september(3,2)=10
+  s september(3,3)=11
+  s september(3,4)=12
+  s september(3,5)=13
+  s september(3,6)=14
+  s september(3,7)=15
+  s september(4,1)=16
+  s september(4,2)=17
+  s september(4,3)=18
+  s september(4,4)=19
+  s september(4,5)=20
+  s september(4,6)=21
+  s september(4,7)=22
+  s september(5,1)=23
+  s september(5,2)=24
+  s september(5,3)=25
+  s september(5,4)=26
+  s september(5,5)=27
+  s september(5,6)=28
+  s september(5,7)=29
+  s september(6,1)=30
+  s september(6,2)=1
+  s september(6,3)=2
+  s september(6,4)=3
+  s september(6,5)=4
+  s september(6,6)=5
+  s september(6,7)=6
+
+  w !,"September 2019:",!
+
+  f i=1:1:6 d
+  . f j=1:1:7 d
+  .. w september(i,j)," "
+  .. i j=7 w "",!
+
+; array as a tree
+
+  w !,"Genealogical tree:",!
+
+  s gtree(1)="Oliver"
+  s gtree(1,1)="Jack"
+  s gtree(1,1,1)="Harry"
+  s gtree(1,1,2)="Emily"
+  s gtree(1,2)="Amelia"
+  s gtree(1,2,1)="Thomas"
+  s gtree(1,2,2)="Jessica"
+
+  w gtree(1,1,1)," and ",gtree(1,1,2)," had ",gtree(1,1),!
+
+; associative array
+
+  w !,"Associative array:",!
+
+  s cities("UK",1)="Londn"
+  s cities("UK",2)="Birmingham"
+  s cities("Canada",1)="Toronto"
+  s cities("Canada",2)="Montreal"
+
+  w "Have you ever been to ",cities("UK",1),"?",!
diff --git a/README.md b/README.md
index c884764..3553cef 100644
--- a/README.md
+++ b/README.md
@@ -179,6 +179,33 @@ Copy the examples into your `~/.fis-gtm/V6.3-003A_x86_64/r` folder and run:
     Associative array:
     Have you ever been to London?
 
+### [`ArraysShortened.m`](https://github.com/programarivm/mumps-examples/blob/master/01-the-very-basics/ArraysShortened.m)
+
+    Approaching the solar system:
+    Mercury
+    Venus
+    Earth
+    Mars
+    Jupiter
+    Saturn
+    Uranus
+    Neptune
+    Pluto
+
+    September 2019:
+    26 27 28 29 30 31 1
+    2 3 4 5 6 7 8
+    9 10 11 12 13 14 15
+    16 17 18 19 20 21 22
+    23 24 25 26 27 28 29
+    30 1 2 3 4 5 6
+
+    Genealogical tree:
+    Harry and Emily had Jack
+
+    Associative array:
+    Have you ever been to London?
+
 ## 2. User Defined Functions
 
 ### [`FactorialByReference.m`](https://github.com/programarivm/mumps-examples/blob/master/02-user-defined-functions/FactorialByReference.m)