RosettaCodeData/Task/Associative-array-Creation/LFE/associative-array-creation.lfe
2016-12-05 23:44:36 +01:00

5 lines
279 B
Text

(let* ((my-dict (: dict new))
(my-dict (: dict store 'key-1 '"value 1" my-dict))
(my-dict (: dict store 'key-2 '"value 2" my-dict)))
(: io format '"size: ~p~n" (list (: dict size my-dict)))
(: io format '"some data: ~p~n" (list (: dict fetch 'key-1 my-dict))))