From 0c43bedd1756a6ca1052fb4ee172d5384441b0da Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Tue, 22 Feb 2022 09:10:00 +0000
Subject: - Added more guest contribution by Robert DiCicco.

---
 challenge-153/robert-dicicco/tcl/ch-1.tcl | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 challenge-153/robert-dicicco/tcl/ch-1.tcl

diff --git a/challenge-153/robert-dicicco/tcl/ch-1.tcl b/challenge-153/robert-dicicco/tcl/ch-1.tcl
new file mode 100644
index 0000000000..4845ca19a1
--- /dev/null
+++ b/challenge-153/robert-dicicco/tcl/ch-1.tcl
@@ -0,0 +1,24 @@
+# Author: Robert DiCicco
+# Date:   21-FEB-2022
+# Challenge #153 Left Factorials ( Tcl )
+
+proc Factorial {x} {
+   set i 1; set product 1
+   while {$i <= $x} {
+      set product [expr $product * $i]
+      incr i
+   }
+
+   return $product
+}
+
+set Total 0
+set I 0
+
+while { $I < 10 } {
+  set X [Factorial $I]
+  set Total [expr $X + $Total]
+  puts -nonewline $Total
+  puts -nonewline " "
+  incr I
+}
-- 
cgit