laconic 2.0.0

Interpreter for Laconic expressions and scripts, both as a library component and command-line executable
Documentation 
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
31
32
33
34
35

[c The number passed by stack is prime if the script returns 1, otherwise, the script returns the lowest factor found.]
R
	#isPrime
	?
		=k, 0
		U[sisPrime: no number on stack]
		;(
			$0 k
			$1 1
			?
				<v0 2
				$1 0
				?
					&
						>v0 2
						=0 %v0 2
					$1 2
					;(
						$2 ^v0 .5
						$3 3
						W
							&
								!>v3 v2
								=v1 1
								;
									$
										1
										?
											= 0 % v0 v3
											v3
											1
									+: 3 2
					)
			v1
		)