Update all new Tasks
This commit is contained in:
parent
00a190b0a6
commit
91df62d461
5697 changed files with 93386 additions and 804 deletions
21
Task/ABC-Problem/Logo/abc-problem.logo
Normal file
21
Task/ABC-Problem/Logo/abc-problem.logo
Normal file
|
|
@ -0,0 +1,21 @@
|
|||
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
|
||||
Loading…
Add table
Add a link
Reference in a new issue