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

[Link, Programming] MySQL UTF8 Broken; NCOA for $20; [Link, Books] Latin American Authors; [Link, Computing] Optimizatin Puzzle; [Link, Books, Politics] Orwell Prize; [Link] What the Hell Is Happening With Qatar?; [Link] Deep Learning + Virtual Tensor Machines; [Link] Scaled Composites: Largest Wingspan Ever; [Link] SCP Foundation; [Bike] Lessons From 2 Leading 2 Trailing; [Link] Veg Restaurants in Santiago; [Link] List of Contemporary Latin American Authors; [Bike] FTHR; [Link] Whoa - NSA Reduces Collection (of US Residents); [Link] Red Bull's Breitbart; [Link] Linux Threads; [Link] Punycode; [Link] Bull / Girl Statues on Wall Street; [Link] Beautiful Chair Video; Update: Lower Pressures; [Link] Neat Python Exceptions; [Link] Fix for Windows 10 to Avoid Ads; [Link] Attacks on ZRTP; [Link] UK Jazz Invasion; [Review] Cuba; [Link] Aricle on Gender Reversal of US Presidential Debate; {OpenSuse] Fix for Network Offline in Updater Applet; [Link] Parkinson's Related to Gut Flora; Farellones Bike Park; [Meta] Tags; Update: Second Ride; Schwalbe Thunder Burt 2.1 v Continental X-King 2.4; Mountain Biking in Santiago; Books on Ethics; Security Fail from Command Driven Interface; Everything Old is New Again; Interesting Take on Trump's Lies; Chutney v6; References on Entropy; Amusing "Alexa.." broadcast; The Shame of Chile's Education System; Playing mp4 gifs in Firefox on Opensuses Leap 42.2; Concurrency at Microsoft; Globalisation: Uk -> Chile; OpenSuse 42.2 and Synaptics Touch-Pads; Even; Cherry Jam; Lebanese Writer Amin Maalouf; C++ - it's the language of the future; Learning From Trump; Chinese Writer Hu Fayun; And; Apricot Jam; Also; Excellent Article on USA Politics; Oh Metafilter; Prejudice Against The Rurals; Also, Zizek; Trump; Why Trump Won; Doxygen + Latex on CentOS 6; SMASH - Solve 5 Biggest Problems in Physics; Good article on racism, brexit, and social divides; Grandaddy are back!; Consciousness From Max Entropy; Democrats; Harvard Will Fix Black Poverty; Modelling Bicycle Wheels; Amusing Polling Outlier; If Labour keeps telling working class people...; Populism and Choice; Books on Defeat; Enrique Ferrari - Argentine Author; Transcript of German Scientists on Learning of Hiroshima; Calvert Journal; Owen Jones on Twitter; Possible Japanese Authors; Complex American Literature; Chutney v5; Weird Componentized Virus; Interesting Argentinian Author - Antonio Di Benedetto; Useful Thread on MetaPhysics; RAND on fighting online anarchy (2001); NSA Hacked; Very Good LRB Article on Brexit; Nussbaum on Anger; Tasting; Apple + Kiwi Jam; Hit Me; Sudoku - CSP + Chaos; Recycling Electronics In Santiago; Vector Displays in OpenGL; And Anti-Aliased; OpenGL - Render via Intermediate Texture; And Garmin Connect; Using Garmin Forerunner 230 With Linux; (Beating Dead Horse) StackOverflow; Current State of Justice in China; Axiom of Determinacy; Ewww; Fee Chaos Book

© 2006-2017 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