fork download
copy 
  1. (defn disemvowel [s]
  2.   (as-> s res
  3.     (filter (complement #{\ }) res)
  4.     (group-by #(if (#{\a \e \i \o \u} %) :vowel :consonant) res)
  5.     [(:consonant res) (:vowel res)]
  6.     (map #(clojure.string/join "" %) res)))
  7. (-> "all those who believe in psychokinesis raise my hand" disemvowel  println)
Success #stdin #stdout 1.32s 389120KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
(llthswhblvnpsychknssrsmyhnd aoeoeieeioieiaiea)
https://ideone.com/MKwaJl
language:
Clojure (clojure 1.10.0)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!