ABC problem: Difference between revisions
→{{header|Insitux}}
(→Insitux: move and slightly improve) |
FordArthur (talk | contribs) |
||
Line 5,018:
=={{header|Insitux}}==
<syntaxhighlight lang="insitux">
(var find-idx #(when (let found (find % %1)) (idx %1 found)))
(function in-block? c (when (let block-idx (find-idx (substr? (upper-case c)) rem-blocks)) (var! rem-blocks drop block-idx)))
(function can-make-word word
Line 5,027 ⟶ 5,026:
(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 =>
</pre>
| |||