fork download
  1. (defn process-next [waiting-line]
  2. (println waiting-line)
  3. (if-let [name (first waiting-line)]
  4. (do (println name "is next")
  5. (recur (next waiting-line)))
  6. (println "no waiting")))
  7.  
  8.  
  9. (process-next '("Jeremy", "Amanda", "Markus"))
Success #stdin #stdout 1.34s 389120KB
stdin
Standard input is empty
stdout
(Jeremy Amanda Markus)
Jeremy is next
(Amanda Markus)
Amanda is next
(Markus)
Markus is next
nil
no waiting