Hash from two arrays: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
No edit summary |
||
Line 1,400: | Line 1,400: | ||
2 |
2 |
||
3.141592654 |
3.141592654 |
||
</pre> |
|||
=={{header|Phixmonti}}== |
|||
<lang Phixmonti>include ..\Utilitys.pmt |
|||
def getd /# array key -- array data #/ |
|||
swap 1 get |
|||
rot find nip |
|||
dup if |
|||
swap 2 get rot get nip |
|||
else |
|||
drop "Unfound" |
|||
endif |
|||
enddef |
|||
( ( 1 "two" PI ) ( "one" 2 PI ) ) /# keys / data #/ |
|||
1 getd print nl |
|||
"two" getd print nl |
|||
PI getd tostr print nl |
|||
3 getd print</lang> |
|||
{{out}} |
|||
<pre> |
|||
one |
|||
2 |
|||
3.141592653589793 |
|||
Unfound |
|||
</pre> |
</pre> |
||