| Andrew Cooke | Contents | Latest | RSS | Twitter | Previous | Next

C[omp]ute

Welcome to my blog, which was once a mailing list of the same name and is still generated by mail. Please reply via the "comment" links.

Always interested in offers/projects/new ideas. Eclectic experience in fields like: numerical computing; Python web; Java enterprise; functional languages; GPGPU; SQL databases; etc. Based in Santiago, Chile; telecommute worldwide. CV; email.

Personal Projects

Lepl parser for Python.

Colorless Green.

Photography around Santiago.

SVG experiment.

Professional Portfolio

Calibration of seismometers.

Data access via web services.

Cache rewrite.

Extending OpenSSH.

C-ORM: docs, API.

Last 100 entries

Calling C From Fortran 95; Bjork DJ Set; Z3 Example With Python; Week 1; Useful Guide To Starting With IJulia; UK Election + Media; Review: Reinventing Organizations; Inline Assembly With Julia / LLVM; Against the definition of types; Dumb Crypto Paper; The Search For Quasi-Periodicity...; Is There An Alternative To Processing?; CARDIAC (CARDboard Illustrative Aid to Computation); The Bolivian Case Against Chile At The Hague; Clear, Cogent Economic Arguments For Immigration; A Program To Say If I Am Working; Decent Cards For Ill People; New Photo; Luksic And Barrick Gold; President Bachelet's Speech; Baltimore Primer; libxml2 Parsing Stream; configure.ac Recipe For Library Path; The Davalos Affair For Idiots; Not The Onion: Google Fireside Chat w Kissinger; Bicycle Wheels, Inertia, and Energy; Another Tax Fraud; Google's Borg; A Verion That Redirects To Local HTTP Server; Spanish Accents For Idiots; Aluminium Cans; Advice on Spray Painting; Female View of Online Chat From a Male; UX Reading List; S4 Subgroups - Geometric Interpretation; Fucking Email; The SQM Affair For Idiots; Using Kolmogorov Complexity; Oblique Strategies in bash; Curses Tools; Markov Chain Monte Carlo Without all the Bullshit; Email Para Matias Godoy Mercado; The Penta Affair For Idiots; Example Code To Create numpy Array in C; Good Article on Bias in Graphic Design (NYTimes); Do You Backup github?; Data Mining Books; SimpleDateFormat should be synchronized; British Words; Chinese Govt Intercepts External Web To DDOS github; Numbering Permutations; Teenage Engineering - Low Price Synths; GCHQ Can Do Whatever It Wants; Dublinesque; A Cryptographic SAT Solver; Security Challenges; Word Lists for Crosswords; 3D Printing and Speaker Design; Searchable Snowden Archive; XCode Backdoored; Derived Apps Have Malware (CIA); Rowhammer - Hacking Software Via Hardware (DRAM) Bugs; Immutable SQL Database (Kinda); Tor GPS Tracker; That PyCon Dongle Mess...; ASCII Fluid Dynamics; Brandalism; Table of Shifter, Cassette and Derailleur Compatability; Lenovo Demonstrates How Bad HTTPS Is; Telegraph Owned by HSBC; Smaptop - Sunrise (Music); Equation Group (NSA); UK Torture in NI; And - A Natural Extension To Regexps; This Is The Future Of Religion; The Shazam (Music Matching) Algorithm; Tributes To Lesbian Community From AIDS Survivors; Nice Rust Summary; List of Good Fiction Books; Constructing JSON From Postgres (Part 2); Constructing JSON From Postgres (Part 1); Postgres in Docker; Why Poor Places Are More Diverse; Smart Writing on Graceland; Satire in France; Free Speech in France; MTB Cornering - Where Should We Point Our Thrusters?; Secure Secure Shell; Java Generics over Primitives; 2014 (Charlie Brooker); How I am 7; Neural Nets Applied to Go; Programming, Business, Social Contracts; Distributed Systems for Fun and Profit; XML and Scheme; Internet Radio Stations (Curated List); Solid Data About Placebos; Half of Americans Think Climate Change Is a Sign of the Apocalypse; Saturday Surf Sessions With Juvenile Delinquents; Ssh, tty, stdout and stderr; Feathers falling in a vacuum; Santiago 30m Bike Route

© 2006-2015 Andrew Cooke (site) / post authors (content).

Tying the knot in Clojure

From: andrew cooke <andrew@...>

Date: Wed, 18 Jul 2012 23:41:56 -0400

(defn stream [seed]
  (defn helper
    ([slow] (helper (first slow) seed (rest slow)))
    ([c fast slow]
      (let [fast (seq fast)]
        (if fast
          (lazy-seq (cons (str c (first fast)) (helper c (rest fast) slow)))
          (helper slow)))))
  (declare delayed)
  (let [slow (cons "" (lazy-seq delayed))]
    (def delayed (helper slow))
    delayed))

(take 5 (stream ["a" "b" "c"]))
("a" "b" "c" "aa" "ab" "ac" "ba" "bb" "bc" "ca" "cb" "cc" "aaa" 
"aab" "aac" "abb" "abc" "aca" "acb" "acc" "baa" "bab" "bac" "bba")

From http://stackoverflow.com/a/11553140/181772

The idea is pretty simple: I take the output from the sequence and feed it
back on itself. For each value in the output (which is also the input), I
generate a new output by appending each of the letters in the seed
sequence. Since this is circular it just keeps on going.

The process of feeding the output into the input is called "tying the knot" in
a fairly famous paper for Haskell. But it's harder to do in Clojure because
it's an eager language (and even lazy sequences aren't "lazy enough") - the
only solution I could find was that mess with def (I suspect someone might do
better with delay and force, but I had no luck).

https://github.com/andrewcooke/clojure-lab/blob/master/src/org/acooke/lab/perms.clj

Andrew

Improved Code

From: andrew cooke <andrew@...>

Date: Thu, 19 Jul 2012 15:13:14 -0400

(defn stream [seed]
      (defn helper [slow]
        (concat (map #(str (first slow) %) seed) (lazy-seq (helper (rest
      slow)))))
      (declare delayed)
      (let [slow (cons "" (lazy-seq delayed))]
        (def delayed (helper slow))
        delayed))
    
    (take 25 (stream ["a" "b" "c"]))
    ("a" "b" "c" "aa" "ab" "ac" "ba" "bb" "bc" "ca" "cb" "cc" "aaa" "aab"
    "aac" "aba" "abb" "abc" "aca" "acb" "acc" "baa" "bab" "bac" "bba")

Also: http://stackoverflow.com/questions/11567625/tying-the-knot-in-clojure

Andrew

PS And I had a typo in teh earlier code - should have been "take 25".

iterate

From: Javier Neira Sanchez <atreyu.bbb@...>

Date: Thu, 19 Jul 2012 23:11:05 +0200

I think tying the knot is about corecursion and the more elegant to
make it in clojure is with iterate

(def abc (map str (map char (range 65 91))))
    (defn cols [seed]
      (let [next #(for [x %] (for [y seed] (str x y)))]
        (->> (iterate #(apply concat (next %)) seed)
             (mapcat identity))))

    (time (first (drop 475254 (cols abc))))
    "Elapsed time: 356.879148 msecs"
    "AAAAA"

    (doc iterate)
    -------------------------
    clojure.core/iterate
    ([f x])
      Returns a lazy sequence of x, (f x), (f (f x)) etc. f must be
free of side-effects

Comment on this post