-
Notifications
You must be signed in to change notification settings - Fork 3.5k
/
default.expect.txt
26 lines (20 loc) · 2.53 KB
/
default.expect.txt
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
<span class="hljs-keyword">package</span> json
<span class="hljs-keyword">source</span> helper.tcl
<span class="hljs-comment"># randomness verified by a die throw</span>
<span class="hljs-keyword">set</span> ::rand <span class="hljs-number">4</span>
<span class="hljs-keyword">proc</span><span class="hljs-title"> give::recursive::count</span> {base p} { <span class="hljs-comment">; # 2 mandatory params</span>
<span class="hljs-keyword">while</span> {<span class="hljs-variable">$p</span> > <span class="hljs-number">0</span>} {
<span class="hljs-keyword">set</span> result [<span class="hljs-keyword">expr</span> <span class="hljs-variable">$result</span> * <span class="hljs-variable">$base</span>]; <span class="hljs-keyword">incr</span> p <span class="hljs-number">-1</span>
}
<span class="hljs-keyword">return</span> <span class="hljs-variable">$result</span>
}
<span class="hljs-keyword">set</span> a {a}; <span class="hljs-keyword">set</span> b <span class="hljs-string">"bcdef"</span>; <span class="hljs-keyword">set</span> lst [<span class="hljs-keyword">list</span> <span class="hljs-string">"item"</span>]
<span class="hljs-keyword">puts</span> [<span class="hljs-keyword">llength</span> <span class="hljs-variable">$a</span><span class="hljs-variable">$b</span>]
<span class="hljs-keyword">set</span> ::my::tid(<span class="hljs-variable">$id</span>) <span class="hljs-variable">$::my::tid</span>(def)
<span class="hljs-keyword">lappend</span> lst <span class="hljs-variable">$arr</span>(<span class="hljs-variable">$idx</span>) <span class="hljs-variable">$::my::arr</span>(<span class="hljs-variable">$idx</span>) <span class="hljs-variable">$ar</span>(key)
<span class="hljs-keyword">lreplace</span> ::my::tid(<span class="hljs-variable">$id</span>) <span class="hljs-number">4</span> <span class="hljs-number">4</span>
<span class="hljs-keyword">puts</span> <span class="hljs-variable">$::rand</span> <span class="hljs-variable">${::rand}</span> <span class="hljs-variable">${::AWESOME::component::variable}</span>
<span class="hljs-keyword">puts</span> <span class="hljs-string">"$x + $y is\t [expr $x + $y]"</span>
<span class="hljs-keyword">proc</span><span class="hljs-title"> isprime</span> x {
<span class="hljs-keyword">expr</span> {<span class="hljs-variable">$x</span>><span class="hljs-number">1</span> && ![<span class="hljs-keyword">regexp</span> {^(oo+?)\<span class="hljs-number">1</span>+$} [<span class="hljs-keyword">string</span> repeat o <span class="hljs-variable">$x</span>]]}
}