(defunscramble(sourcetarget)(let((source(coercesource'list))(target(coercetarget'list)))(cond((nulltarget)t)((member(firsttarget)source)(scramble(remove(firsttarget)source:count1)(resttarget))))))(mapcar#'(lambda(args)(apply#'scrambleargs))'(("rkqodlw""world")("cedewaraaossoqqyt""codewars")("katas""steak")("scriptjavx""javascript")("scriptingjava""javascript")("scriptsjava""javascripts")("javscripts""javascript")("aabbcamaomsccdd""commas")("commas""commas")("sammoc""commas")));; => (T T NIL NIL T T NIL T T T)
For further actions, you may consider blocking this person and/or reporting abuse
We're a place where coders share, stay up-to-date and grow their careers.
Common Lisp