ABC problem: Difference between revisions
→Insitux: move and slightly improve
FordArthur (talk | contribs) (Insitux implementation) |
(→Insitux: move and slightly improve) |
||
Line 5,014:
"CONFUSE" can be spelled with blocks.
->
</pre>
=={{header|Insitux}}==▼
<syntaxhighlight lang="insitux">
(var! rem-blocks remove [block])))
(function can-make-word word
(var rem-blocks ["BO" "XK" "DQ" "CP" "NA" "GT" "RE" "TG" "QD" "FS" "JW" "HU" "VI" "AN" "OB" "ER" "FS" "LY" "PC" "ZM"])▼
(join ", " (map #(str % " => " (can-make-word %)) ["A" "bark" "Book" "TREAT" "Common" "squaD" "CoNFuSe"])) ; Notice case insensitivity
</syntaxhighlight>
{{out}}
<pre>
A => true, bark => true, Book => false, TREAT => true, Common => false, squaD => true, CoNFuSe => false
</pre>
Line 5,174 ⟶ 5,191:
SQuAd: true
CONFUSE: true</pre>
▲=={{header|Insitux}}==
▲<syntaxhighlight lang="insitux">(function in-block? c (when (let block (find (substr? (upper-case c)) rem-blocks)) (var! rem-blocks remove [block])))
▲(function can-make-word word
▲ (var rem-blocks ["BO" "XK" "DQ" "CP" "NA" "GT" "RE" "TG" "QD" "FS" "JW" "HU" "VI" "AN" "OB" "ER" "FS" "LY" "PC" "ZM"])
▲ (.. and (map in-block? word))))
▲(join ", " (map #(str % " => " (can-make-word %)) ["A" "bark" "Book" "TREAT" "Common" "squaD" "CoNFuSe"])) ; Notice case insensitivity</syntaxhighlight>
=={{header|JavaScript}}==
| |||