PicoLisp solution for the ABC problem on Kattis

abc.l

# Kattis - ABC
# https://open.kattis.com/problems/abc

(de getInput ()
   (let (Numbers (sort (list (read) (read) (read)))
         Seq (chop (read))
         Alist (mapcar '((K V) (cons K V)) '("A" "B" "C") Numbers))
      (list Alist Seq)))

(de processInput(Numbers Sequence)
   (mapc '((S) (printsp (cdr (assoc S Numbers)))) Sequence))

# (apply processInput (getInput))

# Test invocations
#{
(in '(echo "-e" "1 5 3\nABC") (apply processInput (getInput)))
(in '(echo "-e" "6 4 2\nCAB) (apply processInput (getInput)))
}#