22 lines
641 B
Plaintext
22 lines
641 B
Plaintext
program ABC_problem;
|
|
blocks := ["BO","XK","DQ","CP","NA","GT","RE","TG","QD","FS",
|
|
"JW","HU","VI","AN","OB","ER","FS","LY","PC","ZM"];
|
|
|
|
words := ["A","BARK","BOOK","treat","common","Squad","CoNfUsE"];
|
|
|
|
loop for word in words do
|
|
print(rpad(word, 8), can_make_word(word, blocks));
|
|
end loop;
|
|
|
|
proc can_make_word(word, blocks);
|
|
loop for letter in word do
|
|
if exists block = blocks(i) | to_upper(letter) in block then
|
|
blocks(i) := "";
|
|
else
|
|
return false;
|
|
end if;
|
|
end loop;
|
|
return true;
|
|
end proc;
|
|
end program;
|