100 Languages Speedrun: Episode 88: Brat

#!/usr/bin/env brat

p "Hello, World!"

$ ./hello.brat
Hello, World!

#!/usr/bin/env brat

1.to 100 { n|
  true? (n % 15 == 0)
    { p "FizzBuzz" }
    {
      true? (n % 5 == 0)
        { p "Buzz" }
        {
          true? (n % 3 == 0)
            { p "Fizz" }
            { p n }
        }
    }
}

#!/usr/bin/env brat

p "Hello".length
p "Żółw".length
p "💩".length

$ ./unicode.brat
5
7
4

#!/usr/bin/env brat

a = [1 2 3 4 5]
p a.map { x| x * 2 }
p a.select { x| x % 2 == 1}
p a.reduce { x, y| x + y}

$ ./functional.brat
[2, 4, 6, 8, 10]
[1, 3, 5]
15

#!/usr/bin/env brat

fib = {n|
  true? (n <= 2)
    { 1 }
    { fib(n - 1) + fib(n - 2) }
}

1.to 20 {n| p "fib(#{n}) = #{fib(n)}" }

$  ./fib.brat
fib(1) = 1
fib(2) = 1
fib(3) = 2
fib(4) = 3
fib(5) = 5
fib(6) = 8
fib(7) = 13
fib(8) = 21
fib(9) = 34
fib(10) = 55
fib(11) = 89
fib(12) = 144
fib(13) = 233
fib(14) = 377
fib(15) = 610
fib(16) = 987
fib(17) = 1597
fib(18) = 2584
fib(19) = 4181
fib(20) = 6765

#!/usr/bin/env brat

a = [1 2 3 4 5]
h = ["name" : "Alice", "surname" : "Smith"]

p a
p h
p [1 2] == [1 2]
p ["name": "Alice"] == ["name": "Alice"]

$ ./data.brat
[1, 2, 3, 4, 5]
[name: Alice, surname: Smith]
true
true

#!/usr/bin/env brat

person = object.new
person.to_s = { "#{name} #{surname}" }

alice = person.new
alice.name = "Alice"
alice.surname = "Smith"

p alice

$ ./person.brat
Alice Smith

#!/usr/bin/env brat

vector = object.new
vector.x = 0
vector.y = 0
vector.to_s = { "<#{x},#{y}>" }
vector.init = { xx, yy |
  my.x = xx
  my.y = yy
}
vector.+ = { other |
  vector.new(x + other.x, y + other.y)
}

a = vector.new(20, 60)
b = vector.new(400, 9)
c = a + b

p a
p b
p c

$ ./vector.brat
<20,60>
<400,9>
<420,69>

#!/usr/bin/env brat

include :file

array.prototype.random = { my[object.random(length)] }

words = file.read("wordle-answers-alphabetical.txt").split("\n")
word = words.random
guess = ""

while { guess != word } {
  print "Guess word: "
  guess = g
  true? { guess.length == 5 }
    {
      0.to 4 { n|
        true? { guess[n] == word[n] }
          { print "🟩" }
          {
            true? { word.include?(guess[n]) }
              { print "🟨" }
              { print "🟥" }
          }
      }
      print "\n"
    }
    {
      p "Guess must be 5 characters"
    }
}

$ ./wordle.brat
Guess word: agile
🟥🟥🟥🟩🟥
Guess word: world
🟥🟩🟥🟩🟨
Guess word: could
🟥🟩🟥🟩🟨
Guess word: dolly
🟩🟩🟩🟩🟩