RosettaCodeData/Task/Stack/TAV/stack-1.tav

7 lines
188 B
Plaintext

row (@) push (val):
@[@.Count+1] =: val \ increments .Count
row (@) pop:
rv =: @[@.Count] \ void if .Count = 0
@[@.Count] =: () \ assigning void decrements .Count
:> rv