From e7cc23d12512299f46311cf5eeb6b894018b6f2e Mon Sep 17 00:00:00 2001
From: Barak Bloch <barak.bloch@gmail.com>
Date: Mon, 29 Feb 2016 03:04:01 +0200
Subject: [PATCH] added tcl, but not in tests, dono how to use this makefile
---
prime.tcl | 37 +++++++++++++++++++++++++++++++++++++
1 file changed, 37 insertions(+)
create mode 100755 prime.tcl
diff --git a/prime.tcl b/prime.tcl
new file mode 100755
index 0000000..8aa7754
--- /dev/null
+++ b/prime.tcl
@@ -0,0 +1,37 @@
+#!/usr/bin/env tclsh
+
+###########################################
+# Dummy prime list genetor by Barak Bloch #
+###########################################
+
+
+proc is_prime n {
+ set sq [expr { sqrt($n)}]
+ set sqlen [string length $sq]
+ if {[string range $sq $sqlen-1 $sqlen] == ".0"} {
+ return 0
+ }
+ set cei [expr {ceil($sq)}]
+ for {set i 2} {$i < $cei} {incr i} {
+ if {[expr {fmod($n,$i) } ] == 0} {
+ return 0
+ }
+ }
+ return 1
+}
+
+
+if { $::argc > 0 } {
+ set primes { }
+ set i 0
+
+ while {[llength $primes] < [lindex $::argv 0]} {
+ if {[is_prime $i] == 1} {
+ lappend primes $i
+ }
+ incr i
+ }
+ puts $primes
+} else {
+ puts "Error, please pass number of prime numbers to show"
+}
--
GitLab