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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102

[c
	On top of the stack, this routine wants to find a number indicating the day of the week (0=saturday).
	The routine returns the English name for the day of the week.

	Execute the unit tests from the working directory where the unitTestUtils.lac scripts is stored.
]

R(
	#dowName

	$0 k

	?
		!=1 tv0
		U+([sRoutine ] c#rtn [s failed to find a day number on stack.])
		;(
			%:0 7

			?
				<v0 0
				+7 :0
				€

			i:0

			?=v0 0
			#saturday
			?=v0 1
			#sunday		
			?=v0 2
			#monday
			?=v0 3
			#tuesday
			?=v0 4
			#wednesday
			?=v0 5
			#thursday
			#friday
		)
)

R(
	#utDowName0
	K0
	X(#assert_eq c#rtn #saturday X#dowName)
)

R(
	#utDowName6
	K6
	X(#assert_eq c#rtn #friday X#dowName)
)

R(
	#utDowName24
	K24
	X(#assert_eq c#rtn #tuesday X#dowName)
)

R(
	#utDowName-19
	K~19
	X(#assert_eq c#rtn #monday X#dowName)
)

R(
	#utDowNameFractal
	K4.5
	X(#assert_eq c#rtn #wednesday X#dowName)
)

R(
	#utDowNameNegativeFractal
	K~4.5
	X(#assert_eq c#rtn #monday X#dowName)
)

R(
	#utDowNameNonNumeric
	K#six
	?,
		X(#assert_eq c#rtn 90 tX#dowName)
		V
)
	
R(
	#dowNameUnitTests

	Er,#unitTestUtils.lac

	K,(
		#utDowName0
		#utDowName6
		#utDowName24
		#utDowName-19
		#utDowNameFractal
		#utDowNameNegativeFractal
		#utDowNameNonNumeric
	)

	X#executeUnitTests
)