look_and_say.clj

(ns look-and-say)

(defn- consecutive [string]
  (map first (re-seq #"(.)\1*" string)))

(defn- say [chars]
  [(count chars) (first chars)])

(defn- get-next [string]
  (apply str (mapcat say (consecutive string))))

(defn look-and-say [string]
  (iterate get-next string))

look_and_say.rb

module LookAndSay
  class << self
    def look_and_say(string)
      # Implement me!
    end

    private

    def consecutive(string)
      string.scan(/((.)\2*)/).map &:first
    end

    def say(chars)
      [chars.length, chars[0]]
    end

    def get_next(string)
      consecutive(string).map(&method(:say)).join ''
    end
  end
end