Data update

Task/ABC-problem/Elm/abc-problem.elm

@@ -0,0 +1,59 @@
+import Html exposing (div, p, text)
+
+
+type alias Block = (Char, Char)
+
+
+writtenWithBlock : Char -> Block -> Bool
+writtenWithBlock letter (firstLetter, secondLetter) =
+  letter == firstLetter || letter == secondLetter
+
+
+canMakeWord : List Block -> String -> Bool
+canMakeWord blocks word =
+  let
+    checkWord w examinedBlocks blocksToExamine =
+      case (String.uncons w, blocksToExamine) of
+        (Nothing, _) -> True
+        (Just _, []) -> False
+        (Just (firstLetter, restOfWord), firstBlock::restOfBlocks) ->
+           if writtenWithBlock firstLetter firstBlock
+           then checkWord restOfWord [] (examinedBlocks ++ restOfBlocks)
+           else checkWord w (firstBlock::examinedBlocks) restOfBlocks
+  in
+  checkWord (String.toUpper word) [] blocks
+
+
+exampleBlocks =
+  [ ('B', 'O')
+  , ('X', 'K')
+  , ('D', 'Q')
+  , ('C', 'P')
+  , ('N', 'A')
+  , ('G', 'T')
+  , ('R', 'E')
+  , ('T', 'G')
+  , ('Q', 'D')
+  , ('F', 'S')
+  , ('J', 'W')
+  , ('H', 'U')
+  , ('V', 'I')
+  , ('A', 'N')
+  , ('O', 'B')
+  , ('E', 'R')
+  , ('F', 'S')
+  , ('L', 'Y')
+  , ('P', 'C')
+  , ('Z', 'M')
+  ]
+
+
+exampleWords =
+  ["", "A", "bark", "BoOK", "TrEAT", "COmMoN", "Squad", "conFUsE"]
+
+
+main =
+  let resultStr (word, canBeWritten) = "\"" ++ word ++ "\"" ++ ": " ++ if canBeWritten then "True" else "False" in
+  List.map (\ word -> (word, canMakeWord exampleBlocks word) |> resultStr) exampleWords
+  |> List.map (\result -> p [] [ text result ])
+  |> div []

Task/ABC-problem/FutureBasic/abc-problem-1.basic

@@ -0,0 +1,30 @@
+include "NSLog.incl"
+
+local fn CanBlocksSpell( w as CFStringRef ) as CFStringRef
+NSUInteger  i, j
+CFStringRef s = @"", t1, t2 : if fn StringIsEqual( w, @"" ) then exit fn = @"YES" else w = ucase(w)
+
+mda(0) = {@"BO",@"XK",@"DQ",@"CP",@"NA",@"GT",@"RE",@"TG",@"QD",¬
+@"FS",@"JW",@"HU",@"VI",@"AN",@"OB",@"ER",@"FS",@"LY",@"PC",@"ZM"}
+
+for i = 0 to len(w) - 1
+for j = 0 to mda_count - 1
+t1 = mid( mda(j), 0, 1 ) : t2 = mid( mda(j), 1, 1 )
+if ( fn StringIsEqual( mid( w, i, 1 ), t1 ) ) then s = fn StringByAppendingString( s, t1 ) : mda(j) = @"  " : break
+if ( fn StringIsEqual( mid( w, i, 1 ), t2 ) ) then s = fn StringByAppendingString( s, t2 ) : mda(j) = @"  " : break
+next
+next
+if fn StringIsEqual( s, w ) then exit fn = @"YES"
+end fn = @"NO"
+
+NSUInteger  i
+CFArrayRef  words
+CFStringRef w
+words = @[@"", @"a",@"Bark",@"BOOK",@"TrEaT",@"COMMON",@"Squad",@"conFUse",@"ABBA",@"aUtO"]
+for w in words
+printf @"Can blocks spell %7s : %@", fn StringUTF8String( w ), fn CanBlocksSpell( w )
+next
+
+NSLog( @"%@", fn WindowPrintViewString( 1 ) )
+
+HandleEvents

Task/ABC-problem/FutureBasic/abc-problem-2.basic

@@ -0,0 +1,18 @@
+local fn blocks( wordList as str255 )
+  sint16 found, r, x = 3, y = -9 : str63 ch, blocks : ch = " " : blocks = " "
+  for r = 1 to len$( wordList ) +1
+    found = instr$( 1, blocks, ch )
+    select found
+      case > 3: mid$( blocks, found and -2, 2 ) = "__" : text , , fn ColorYellow
+        rect  fill ( x, y + 5.5, 15, 15 ), fn ColorBrown
+      case   0: text , , fn ColorLightGray
+      case < 4: blocks=" ,;BOXKDQCPNAGTRETGQDFSJWHUVIANOBERFSLYPCZM": x=3: y+=26: ch=""
+    end select
+    text @"Courier New Bold", 16 : print %( x + 2.5, y ) ch : x += 17
+    ch = ucase$( mid$( wordList, r, 1 ) )
+  next
+end fn
+
+window 1, @"ABC problem in FutureBasic", ( 0, 0, 300, 300 )
+fn blocks( "a baRk booK;treat,COMMON squad Confused comparable incomparable nondeductibles" )
+handleevents

Task/ABC-problem/FutureBasic/abc-problem.basic

@@ -1,41 +0,0 @@
-include "NSLog.incl"
-
-local fn CanBlocksSpell( w as CFStringRef ) as CFStringRef
-  NSUInteger        i, j
-  CFStringRef       cFinal = @"", result = @"NO"
-  CFMutableArrayRef blocks
-
-  blocks = fn MutableArrayWithArray( @[@"BO", @"XK", @"DQ", @"CP",¬
-  @"NA", @"GT", @"RE", @"TG", @"QD", @"FS", @"JW", @"HU", @"VI",¬
-  @"AN", @"OB",   @"ER", @"FS", @"LY", @"PC", @"ZM"] )
-
-  CFStringRef cfStr = fn StringUppercaseString( w )
-  NSUInteger length = fn StringLength( cfStr )
-  NSUInteger count  = fn ArrayCount( blocks )
-
-  for i = 0 to length - 1
-    for j = 0 to count - 1
-      CFStringRef charStr    = mid( cfStr, i, 1 )
-      CFStringRef compareStr = fn ArrayObjectAtIndex( blocks, j )
-      CFStringRef testStr1   = mid( compareStr, 0, 1 )
-      CFStringRef testStr2   = mid( compareStr, 1, 1 )
-      if ( fn StringIsEqual( charStr, testStr1 ) == YES )
-        cFinal = fn StringByAppendingString( cFinal, testStr1 ) : MutableArrayReplaceObjectAtIndex( blocks, @"  ", j ) : exit for
-      end if
-      if ( fn StringIsEqual( charStr, testStr2 ) == YES )
-        cFinal = fn StringByAppendingString( cFinal, testStr2 ) : MutableArrayReplaceObjectAtIndex( blocks, @"  ", j ) : exit for
-      end if
-    next
-  next
-  if fn StringIsEqual( cFinal, cfStr ) == YES then result = @"YES"
-end fn = result
-
-NSLog( @"a:       Can blocks spell? %@", fn CanBlocksSpell( @"a"       ) )
-NSLog( @"Bark:    Can blocks spell? %@", fn CanBlocksSpell( @"Bark"    ) )
-NSLog( @"BOOK:    Can blocks spell? %@", fn CanBlocksSpell( @"BOOK"    ) )
-NSLog( @"TrEaT:   Can blocks spell? %@", fn CanBlocksSpell( @"TrEaT"   ) )
-NSLog( @"COMMON:  Can blocks spell? %@", fn CanBlocksSpell( @"COMMON"  ) )
-NSLog( @"Squad:   Can blocks spell? %@", fn CanBlocksSpell( @"Squad"   ) )
-NSLog( @"conFUse: Can blocks spell? %@", fn CanBlocksSpell( @"conFUse" ) )
-
-HandleEvents

Task/ABC-problem/Koka/abc-problem.koka

@@ -0,0 +1,42 @@
+val blocks = [("B", "O"),
+              ("X", "K"),
+              ("D", "Q"),
+              ("C", "P"),
+              ("N", "A"),
+              ("G", "T"),
+              ("R", "E"),
+              ("T", "G"),
+              ("Q", "D"),
+              ("F", "S"),
+              ("J", "W"),
+              ("H", "U"),
+              ("V", "I"),
+              ("A", "N"),
+              ("O", "B"),
+              ("E", "R"),
+              ("F", "S"),
+              ("L", "Y"),
+              ("P", "C"),
+              ("Z", "M")]
+
+pub fun get-remove( xs : list<a>, pred : a -> bool, acc: ctx<list<a>>) : (maybe<a>, list<a>)
+  match xs
+    Cons(x,xx) -> if !pred(x) then xx.get-remove(pred, acc ++ ctx Cons(x, _)) else (Just(x), acc ++. xx)
+    Nil -> (Nothing, acc ++. Nil)
+
+fun check-word(word: string, blocks: list<(string, string)>)
+  match word.head
+    "" -> True
+    x ->
+      val (a, l) = blocks.get-remove(fn(a) a.fst == x || a.snd == x, ctx _)
+      match a
+        Nothing -> False
+        Just(_) -> check-word(word.tail, l)
+
+fun can-make-word(word, blocks: list<(string, string)>)
+  check-word(word.to-upper, blocks)
+
+fun main()
+  val words = ["", "a", "baRk", "booK", "treat", "COMMON", "squad", "Confused"]
+  words.map(fn(a) (a, can-make-word(a, blocks))).foreach fn((w, b))
+    println(w.show ++ " " ++ (if b then "can" else "cannot") ++ " be made")