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