↑ UP | Function lex∆from_alist |
∇ new←lex lex∆from_alist list [1] ⍝⍝ Function to generate a lexicon from a list [2] ⎕es (0≠2|⍴list←,list)/'List must consist of name-value pairs.' [3] →(2=⎕nc 'lex')/recursion [4] lex←lex∆init [5] recursion: [6] new←lex [7] →(0=⍴list←,list)/0 [8] new← (new lex∆assign 2↑list←,list) lex∆from_alist 2↓list ∇ |