lang_2023/tests/flow_control.lang

decl flow-control-test : -> \unit
def flow-control-test = {
  if && ( || a < b
          || a == b )
     && b < c
  then \io..print: x
  elif x < 0
  then {
    ; x += 1
    ; \io..print: y
  } else {
    return {}
  }

  while && a > 0
        && not: (array..is-empty:)
  do {
    ; a -= 1
    ; array..pop:
  }

  while x < 10 do x +=. x + 3

  for i in 0--y do {
    ; \io..print: i
  }

  for & i & j in (& 0--y & 0--k) do { // ??
    ; \io..print: 1
    ; \io..print: 2
    ; \io..print: 128
  }

  loop {
    ; y += 1
    if y > 100 then
      break
  }
}