Right padding a sequence

(defn rpad-seq
  [s n x]
  (if (< (count s) n)
    (seq (apply conj (vec s) (replicate (- n (count s)) x)))
      s))


=> (rpad-seq (list "a" "b" "c") 10 "d")
("a" "b" "c" "d" "d" "d" "d" "d" "d" "d")


Thanks to Mr Purcell for the refactor below:

(defn rpad-seq [s n x]
  (take n (concat s (repeat x))))

or not at work, as the case may be!

Any programming language that has a function called lazy-cat is cool with me