fork download 
  1. (defn f [s]
  2.   (->> (drop-while (fn [[a b]] (not-every? not (map = a b)))
  3.                    (repeatedly #(list (seq s) (shuffle (seq s)))))
  4.        first
  5.        second
  6.        (apply str)))
  7.  
  8. (println (f "hoge"))
Success #stdin #stdout 1.5s 389120KB
comments (?)
stdin 
Standard input is empty
stdout 
ehog
https://ideone.com/pnp2L6
language:
Clojure (clojure 1.10.0)
created:
10 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!