Wittgenlang

A general purpose programming language made for you.

secret #number (1..10000) 'random

play #bliss -> {
  guess-number #number (tries #number) -> {
    guess #number read "Guess the number: " 'numberify

    guess <=> number ~> {
      .gt { 
        write "Too high."
        guess-again.
      }

      .lt { 
        write "Too high."
        guess-again.
      }

      .eq { 
        write "You got it dude."
        tries
      }
    }

    guess-again #number -> guess-number (tries + 1)
  }

  tries #number guess-number (tries 0)
  write "You won in {tries} tries"
}

play.

fn give #t (t #t) -> t