StackStack.fsx

[<Struct;IsByRefLike>]
type StackStack<'T>(values: Span<'T>) =
    [<DefaultValue>] val mutable private Count : int
    
    member s.Push v =
        if s.Count < values.Length then
            values[s.Count] <- v
            s.Count <- s.Count + 1
        else
            failwith "Exceeded capacity of StackStack"
        
    member s.Pop () =
        if s.Count > 0 then
            s.Count <- s.Count - 1
            values[s.Count]
        else
            failwith "Empty StackStack"