blob: c2cea65d70530d65c0d9399b92d012b9d5f903e7 (
plain)
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
|
#N canvas 354 263 467 373 10;
#X floatatom 222 280 5 0 0 0 - - -;
#X floatatom 150 329 5 0 0 0 - - -;
#X msg 150 245 0;
#X msg 181 245 1;
#X text 268 277 size: n;
#X text 19 25 sends a 1 if the last n values are equal to the first
argument;
#X floatatom 137 194 5 0 0 0 - - -;
#X msg 137 110 word;
#X msg 175 110 not-word;
#X msg 120 245 2;
#X text 13 72 click [word( five times in a row and you will get a 1
(5 is the default for how many \, aka "n");
#X text 25 220 click [2( three times in a row and you will get a 1
;
#X obj 137 168 test_n word;
#X obj 150 303 test_n 2 3;
#X obj 5 2 cnv 15 450 20 empty empty test_n 2 11 1 18 -233017 -66577
0;
#X connect 0 0 13 2;
#X connect 2 0 13 0;
#X connect 3 0 13 0;
#X connect 7 0 12 0;
#X connect 8 0 12 0;
#X connect 9 0 13 0;
#X connect 12 0 6 0;
#X connect 13 0 1 0;
|
