22 lines
577 B
Plaintext
22 lines
577 B
Plaintext
make "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]]
|
|
|
|
to can_make? :word [:avail :blocks]
|
|
if empty? :word [output "true]
|
|
local "letter make "letter first :word
|
|
foreach :avail [
|
|
local "i make "i #
|
|
local "block make "block ?
|
|
if member? :letter :block [
|
|
if (can_make? bf :word filter [notequal? # :i] :avail) [output "true]
|
|
]
|
|
]
|
|
output "false
|
|
end
|
|
|
|
foreach [A BARK BOOK TREAT COMMON SQUAD CONFUSE] [
|
|
print sentence word ? ": can_make? ?
|
|
]
|
|
|
|
bye
|