49 lines
960 B
Plaintext
49 lines
960 B
Plaintext
(
|
|
( can-make-word
|
|
= ABC blocks
|
|
. (B O)
|
|
+ (X K)
|
|
+ (D Q)
|
|
+ (C P)
|
|
+ (N A)
|
|
+ (G T)
|
|
+ (R E)
|
|
+ (T G)
|
|
+ (Q D)
|
|
+ (F S)
|
|
+ (J W)
|
|
+ (H U)
|
|
+ (V I)
|
|
+ (A N)
|
|
+ (O B)
|
|
+ (E R)
|
|
+ (F S)
|
|
+ (L Y)
|
|
+ (P C)
|
|
+ (Z M)
|
|
: ?blocks
|
|
& ( ABC
|
|
= letter blocks A Z
|
|
. !arg:(.?)
|
|
| !arg:(@(?:%?letter ?arg).?blocks)
|
|
& !blocks
|
|
: ?
|
|
+ ?*(? !letter ?:?block)
|
|
+ (?&ABC$(!arg.!blocks+-1*!block))
|
|
)
|
|
& out
|
|
$ ( !arg
|
|
( ABC$(upp$!arg.!blocks)&yes
|
|
| no
|
|
)
|
|
)
|
|
)
|
|
& can-make-word'A
|
|
& can-make-word'BARK
|
|
& can-make-word'BOOK
|
|
& can-make-word'TREAT
|
|
& can-make-word'COMMON
|
|
& can-make-word'SQUAD
|
|
& can-make-word'CONFUSE
|
|
);
|