Upgrade to Pro — share decks privately, control downloads, hide ads and more …

Creative machines by Joseph Wilk

Creative machines by Joseph Wilk

Watch the talk here: https://vimeo.com/68755532

Railsberry

April 23, 2013
Tweet

More Decks by Railsberry

Other Decks in Technology

Transcript

  1. by would drops under the knees autumn journey it the

    butterfly end Lexicon my and autumn all white walk my god it night but of on changes this song of traveling wild from he all all butterfly shelter of face knife Life work of Matsuo Bashō ... ... ... Friday, 26 April 13
  2. by would drops under the knees autumn journey it the

    butterfly end Rank: 1-10 Neural Network Friday, 26 April 13
  3. by would drops under the knees autumn journey it the

    butterfly end by Syllable Extractor would drops un-der Phonemes Encoder D - ER josephwilk/pronounce Friday, 26 April 13
  4. [0, 1, 0, 0, 0, 0, 1, 0, 0, 0,

    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] D "D": {"manner": "stop", "stress": "stop", "point": "alveolar"} "ER": {"manner": "vowel", "stress": "none"} ER BinaryEncoder Friday, 26 April 13
  5. 1,0,1,1,0,1,0,1,0,1,1,0,1,0, 0,0,0,1,0,1,0,1,0,1,1,0,1,0, 1,0,0,1,0,1,0,1,0,1,1,0,1,0, 0,0,1,1,0,1,0,1,0,1,1,0,1,0, 0,0,0,1,1,1,0,1,0,1,1,0,1,0, 1,0,1,0,0,1,0,1,0,1,1,0,1,0, 1,0,1,0,0,1,1,1,0,1,1,0,1,0, 0,0,1,0,0,1,0,1,0,1,1,0,0,1, 1,0,1,0,0,1,1,1,0,1,1,0,1,0, 1,0,1,1,0,1,0,1,0,1,1,0,1,0,

    1,0,1,1,0,1,0,1,1,1,1,0,1,0, 1,0,1,1,0,1,0,1,0,1,1,0,1,0, 0,0,1,1,0,1,0,1,0,0,1,0,1,1, 0,1,1,1,0,1,0,1,0,1,1,0,1,0, 0,1,1,1,0,1,0,1,0,0,1,0,1,0, 1,0,1,1,0,1,0,1,0,1,1,0,1,0, 1,0,1,1,0,1,0,1,0,1,1,0,1,1, 1,0,0,1,0,1,0,1,0,0,1,0,1,1, 1,0,1,0,0,1,0,1,0,1,1,0,1,0, 1,0,1,1,0,1,1,1,1,0,1,0,1,0, 0,1,1,1,0,1,0,1,1,1,1,0,1,0, 0,0,0,0,0,1,0,1,0,1,1,0,1,0, Rank: 1-10 TLearn josephwilk/tlearn-rb Friday, 26 April 13
  6. by would drops under the knees autumn journey it the

    butterfly end Mutate by would drops under the knees autumn journey it the butterfly end by would drops under the knees autumn journey it the butterfly end Crossover Population n Population n+1 by would drops under the knees autumn journey it the butterfly end it would rise under a knees autumn journey it the butterfly end by would drops under a knees autumn journey be the butterfly end Friday, 26 April 13
  7. Misty chestnut moon, wild embrace that changes night, like heat

    on the snow. Spring morning marvel, lovely nameless little hill , on a sea of mist. Friday, 26 April 13
  8. “it can do whatever we know how to order it

    to perform” “it has no pretensions whatever to originate anything” Friday, 26 April 13
  9. (ns ^{:doc "The semi-sweet representation of provided forms."} midje.parsing.3-from-lexical-maps.from-fake-maps (:use

    midje.clojure.core midje.checking.core [midje.checkers :only [exactly]] [midje.checking.checkers.defining :only [checker?]] [midje.parsing.arrow-symbols]) (:require [midje.util.exceptions :as exceptions])) (defn- mkfn:arg-matcher "Based on an expected value, generates a function that returns true if the actual value matches it." [expected] (if (and (extended-fn? expected) (not (checker? expected))) (fn [actual] (extended-= actual (exactly expected))) (fn [actual] (extended-= actual expected)))) (defn mkfn:arg-matchers-with-arity "Generates a function that returns true if all the matchers return true for the actual args its passed." [matchers] (fn [actual-args] (let [arg-matchers (map mkfn:arg-matcher matchers)] (and (= (count actual-args) (count arg-matchers)) (extended-list-= actual-args arg-matchers))))) (defn mkfn:arg-matchers-without-arity "Generates a function that returns true if all the matchers return true but it ignores arity matching." [matchers] (fn [actual-args] (let [arg-matchers (map mkfn:arg-matcher matchers)] (extended-list-= actual-args arg-matchers)))) (defmulti mkfn:result-supplier (fn [arrow & _] arrow)) (defmethod mkfn:result-supplier => [_arrow_ result] (constantly result)) (defmethod mkfn:result-supplier =streams=> [_arrow_ result-stream] (let [the-stream (atom result-stream)] (fn [] (when (empty? @the-stream) (throw (exceptions/user-error "Your =stream=> ran out of values."))) (let [current-result (first @the-stream)] (swap! the-stream rest) current-result)))) (defmethod mkfn:result-supplier =throws=> [_arrow_ throwable] (fn [] (when-not (instance? Throwable throwable) (throw (exceptions/user-error "Right side of =throws=> should extend Throwable."))) Empty program Friday, 26 April 13