RosettaCodeData/Task/ABC-problem/Elena/abc-problem.elena

import system'routines;
import system'collections;
import system'culture;
import extensions;
import extensions'routines;

extension op
{
    canMakeWordFrom(blocks)
    {
        var list := ArrayList.load(blocks);

        ^ nil == (cast string(self)).toUpper().seekEach::(ch)
        {
            var index := list.indexOfElement
                ((word => word.indexOf(0, ch) != -1).asComparator());

            if (index>=0)
            {
                list.removeAt(index); ^ false
            }
            else
            {
                ^ true
            }
        }
    }
}

public Program()
{
    auto blocks := new const string[]{"BO", "XK", "DQ", "CP", "NA",
      "GT", "RE", "TG", "QD", "FS",
      "JW", "HU", "VI", "AN", "OB",
      "ER", "FS", "LY", "PC", "ZM"};

    auto words := new const string[]{"", "A", "BARK", "BOOK", "TREAT", "COMMON", "SQUAD", "Confuse"};

    Enumerator e := words.enumerator();
    e.next();

    words.forEach::(word)
    {
        Console.printLine("can make '",word,"' : ",word.canMakeWordFrom(blocks));
    }
}