Associative array/Iteration: Difference between revisions
no edit summary
No edit summary |
|||
Line 2,575:
{"duo",{5,"six"},1}
</pre>
=={{header|Phixmonti}}==
<lang Phixmonti>include ..\Utilitys.pmt
( ( ) ( ) ) 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 ) -- #/
2 for
var i
i get
dictionary i get nip
swap 0 put
dictionary swap i set var dictionary
endfor
drop
enddef
def getd /# key -- data #/
dictionary 1 get nip swap find nip
dup if
dictionary 2 get nip swap get nip
else
drop "Unfound"
endif
enddef
def pair /# n -- ( k d ) #/
1 over 2 tolist var ikey
2 swap 2 tolist var idata
dictionary ikey sget
swap idata sget nip
2 tolist
enddef
def scandict /# n -- #/
dictionary 1 get len nip nip
for
pair
over 0 != if over get nip endif
print nl
endfor
drop
enddef
def pairs
0 scandict
enddef
def keys
1 scandict
enddef
def values
2 scandict
enddef
/# ---------- MAIN ---------- #/
( "one" 1 ) setd
( 2 "duo" ) setd
( ( 3 4 ) ( 5 "six" ) ) setd
pairs nl
keys nl
values</lang>
=={{header|PHP}}==
| |||