Learning about Lists in Gleam

learn_lists.gleam

import gleam/int
import gleam/io
import gleam/list

pub type Knight {
  Knight(id: Int, health: Int)
}

pub fn main() {
  let ks =
    list.range(1, 6)
    |> list.map(fn(x) { Knight(id: x, health: 100) })
    |> list.shuffle

  game_loop(ks)
}

pub fn game_loop(ks: List(Knight)) {
  case ks {
    [] -> io.debug("no players left")
    [winner] -> io.debug("player " <> int.to_string(winner.id) <> " wins!")
    [attacker, defender, ..xs] -> {
      let d = roll_dice()
      let n = Knight(..defender, health: { defender.health - d })

      io.debug(
        int.to_string(attacker.id)
        <> " attacked "
        <> int.to_string(defender.id)
        <> " with damage "
        <> int.to_string(d),
      )

      let seq = case n.health > 0 {
        True -> {
          [n, ..xs]
        }
        False -> {
          io.debug(int.to_string(n.id) <> " eliminated")
          xs
        }
      }

      let seq = list.append(seq, [attacker])

      game_loop(seq)
    }
  }
}

pub fn roll_dice() {
  int.random(6)
}