From 1c560990f08ae5162165edf03a57d4aef3fb2722 Mon Sep 17 00:00:00 2001
From: trizen <trizenx@gmail.com>
Date: Sun, 9 Aug 2015 03:39:37 +0300
Subject: [PATCH] new file:   scripts/subscript_numbers.sf

---
 MANIFEST                     |  1 +
 scripts/subscript_numbers.sf | 21 +++++++++++++++++++++
 2 files changed, 22 insertions(+)
 create mode 100644 scripts/subscript_numbers.sf

diff --git a/MANIFEST b/MANIFEST
index 093e780f9..70c96646b 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -824,6 +824,7 @@ scripts/static_const_lazy_init.sf
 scripts/string_encodings.sf
 scripts/string_escapes.sf
 scripts/struct_definition.sf
+scripts/subscript_numbers.sf
 scripts/sum_of_squares.sf
 scripts/switch.sf
 scripts/sylvesters_sequence.sf
diff --git a/scripts/subscript_numbers.sf b/scripts/subscript_numbers.sf
new file mode 100644
index 000000000..0bf600f5f
--- /dev/null
+++ b/scripts/subscript_numbers.sf
@@ -0,0 +1,21 @@
+#!/usr/bin/ruby
+
+var (x₀=1, x₁=7, y₀=3, y₁=4);
+
+var a₀ = (x₀ * y₀);
+var b₀ = (a₀ % 10);
+assert_eq(3, b₀);
+
+var a₁ = ((x₁ * y₀) + floor(a₀ / 10));
+var a₂ = (x₀ * y₁);
+var b₁ = ((a₁ % 10) + (a₂ % 10));
+assert_eq(5, (b₁ % 10));
+
+var a₃ = ((x₁ * y₁) + floor(a₂ / 10));
+var b₂ = (floor(a₁ / 10) + (a₃ % 10) + floor(b₁ / 10));
+assert_eq(0, (b₂ % 10));
+
+var b₃ = (floor(a₃ / 10) + floor(b₂ / 10));
+assert_eq(3, b₃);
+
+say "** Test passed!";