RosettaCodeData/Task/Associative-array-Creation/LFE/associative-array-creation.lfe

6 lines
279 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
(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))))