Associative array/Iteration: Difference between revisions

Line 2,581:
( ( ) ( ) ) var dictionary
 
def setd /# ( key data ) -- #/
1 get swapvar 2 get nipikey
dictionary 2 get rot 0 put 2var setidata
drop
1 get rot 0 put 1 set
dictionary 1 get ikey find var p drop
p if
2 get idata p set 2 set
else
2 get idata 0 put 2 set
1 get rotikey 0 put 1 set
endif
var dictionary
enddef
672

edits