Re: Stuck at PLEAC example

[Alexander Burger]

On Sun, Jun 10, 2018 at 02:13:10PM +0200, Arie van Wingerden wrote:
> Please give a complete example!

I would do it this way:

   (setq Employees '(emp1 emp2 emp3 emp4 emp5))

   (mapc put
      Employees
      '(name .)
      '("Abel" "Jones" "Millner" "Noles" "Zaphod") )

   (mapc put
      Employees
      '(category .)
      '(engineer cook teacher engineer vicar) )

   (mapc show Employees)
   
   (with
      (find
         '((This) (== 'engineer (: category)))
         Employees )
      (prinl "Highest paid engineer is: " (: name))  )


Output:
   emp1 NIL
      category engineer
      name "Abel"
   emp2 NIL
      category cook
      name "Jones"
   emp3 NIL
      category teacher
      name "Millner"
   emp4 NIL
      category engineer
      name "Noles"
   emp5 NIL
      category vicar
      name "Zaphod"
   Highest paid engineer is: Abel

♪♫ Alex

-- 
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe