RosettaCodeData/Task/Stack/TAV/stack-1.tav
2025-08-11 18:05:26 -07:00

6 lines
188 B
Text

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