Rosetta Code

ABC problem: Difference between revisions

Page Discussion

ABC problem (view source)

Revision as of 14:52, 10 August 2017

8 bytes removed ,  6 years ago
→‎{{header|Elena}}
No edit summary
Line 1,991:
("",true)</pre>
=={{header|Elena}}==
ELENA 3.12
<lang elena>import system'routines.
import system'collections.
Line 2,003:
var list := ArrayList new:blocks.
^ $nil == self literal; upperCase; seek each:seekEach(:ch)
[
var index := list indexOfElement:
((:word)[ ^(word indexOf:ch at:0 != -1) ] asComparerasComparator).
if (index>=0)
Line 2,024:
var words := ("", "A", "BARK", "BOOK", "TREAT", "COMMON", "SQUAD", "Confuse").
words run each: forEach(:word)
[
console writeLine:printLine("can make '":,word:,"' : ":(,word canMakeWordFrom:blocks).
].
].</lang>
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/238419"