Rosetta Code

Associative array/Iteration: Difference between revisions

Page Discussion

Associative array/Iteration (view source)

Revision as of 17:22, 20 June 2020

214 bytes removed ,  3 years ago
→‎{{header|Phixmonti}}
No edit summary
Line 2,580:
 
( ( ) ( ) ) var dictionary
 
/#
def setd
1 get dictionary 1 get nip swap 0 put dictionary swap 1 set var dictionary
2 get dictionary 2 get nip swap 0 put dictionary swap 2 set var dictionary
enddef
#/
 
def setd /# ( key data ) -- #/
1 get swap 2 forget nip
dictionary 2 get rot var0 iput 2 set
i 1 get rot 0 put 1 set
var dictionary i get nip
swap 0 put
dictionary swap i set var dictionary
endfor
drop
enddef
 
Galileo
672

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/123432"