git @ Cat's Eye Technologies Bhuna / master utf8 / clobj2.utf8
master

Tree @master (Download .tar.gz)

clobj2.utf8 @masterraw · history · blame

Stack = λ Size {
  S = [1,2,3,4,5,6,7]
  SP = 1

  Push = λ E {
    //S[SP] = E
    Store S, SP, E
    SP = SP + 1
  }

  Pop = λ {
    SP = SP - 1
    return S[SP]
  }

  return λ {}
}

Q = Stack(256)

Print Q.1, EoL
Print Q.2, EoL
Print Q.3, EoL
Print Q.4, EoL
Print Q.5, EoL