| 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

Why Information Grows; The Blindness Of The Chilean Elite; Some Victoriagate Links; This Is Why I Left StackOverflow; New TLS Implementation; Maths for Physicists; How I Am 8; 1000 Word Philosophy; Cyberpunk Reading List; Detailed Discussion of Message Dispatch in ParserCombinator Library for Julia; FizzBuzz in Julia w Dependent Types; kokko - Design Shop in Osaka; Summary of Greece, Currently; LLVM and GPUs; See Also; Schoolgirl Groyps (Maths); Japanese Lit; Another Example - Modular Arithmetic; Music from United; Python 2 and 3 compatible alternative.; Read Agatha Christie for the Plot; A Constructive Look at TempleOS; Music Thread w Many Recommendations; Fixed Version; A Useful Julia Macro To Define Equality And Hash; k3b cdrom access, OpenSuse 13.1; Week 2; From outside, the UK looks less than stellar; Huge Fonts in VirtualBox; Keen - Complex Emergencies; The Fallen of World War II; Some Spanish Fiction; 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; President Bachelet's Speech; Baltimore Primer; Baltimore Primer; libxml2 Parsing Stream; libxml2 Parsing Stream; configure.ac Recipe For Library Path; configure.ac Recipe For Library Path; The Davalos Affair For Idiots; Not The Onion: Google Fireside Chat w Kissinger; Not The Onion: Google Fireside Chat w Kissinger; Bicycle Wheels, Inertia, and Energy; Bicycle Wheels, Inertia, and Energy; Another Tax Fraud; Google's Borg; Google's Borg; A Verion That Redirects To Local HTTP Server; Spanish Accents For Idiots; Spanish Accents For Idiots; Aluminium Cans; Aluminium Cans; Advice on Spray Painting; Advice on Spray Painting; Female View of Online Chat From a Male; Female View of Online Chat From a Male; UX Reading List; UX Reading List; S4 Subgroups - Geometric Interpretation; S4 Subgroups - Geometric Interpretation; Fucking Email; Fucking Email; The SQM Affair For Idiots; The SQM Affair For Idiots; Using Kolmogorov Complexity; Using Kolmogorov Complexity; Oblique Strategies in bash; Oblique Strategies in bash; Curses Tools; Curses Tools; Markov Chain Monte Carlo Without all the Bullshit; Markov Chain Monte Carlo Without all the Bullshit; Email Para Matias Godoy Mercado; The Penta Affair For Idiots; The Penta Affair For Idiots; Example Code To Create numpy Array in C; Example Code To Create numpy Array in C; Good Article on Bias in Graphic Design (NYTimes); Good Article on Bias in Graphic Design (NYTimes); Do You Backup githb?; Do You Backup github?

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

Cute Piece of Clojure Code

From: andrew cooke <andrew@...>

Date: Sun, 15 Apr 2012 22:35:58 -0300

This is related to the SO question http://stackoverflow.com/questions/10161971
which is playing around with those puzzles where you need to make some number
form a series of digits and various mathematical operators.

The problem being that the problem assumes infix maths, which is a pain if
you're working with a prefix language like lisp.

So what this code does is take two lists - one of operators, and one of
digits, and generates an ast that evaluates correctly, given the precedence of
the operators.

(def default-priorities
  {'+ 1, '- 1, '* 2, '/ 2, '& 3})

(defn- extend-tree [tree priorities operator value]
  (if (seq? tree)
    (let [[op left right] tree
          [old new] (map priorities [op operator])]
      (if (> new old)
        (list op left (extend-tree right priorities operator value))
        (list operator tree value)))
    (list operator tree value)))

(defn priority-tree
  ([operators values] (priority-tree operators values default-priorities))
  ([operators values priorities] (priority-tree operators values priorities
  nil))
  ([operators values priorities tree]
    (if-let [operators (seq operators)]
      (if tree
        (recur
          (rest operators) (rest values) priorities
          (extend-tree tree priorities (first operators) (first values)))
        (let [[v1 v2 & values] values]
          (recur (rest operators) values priorities 
            (list (first operators) v1 v2))))
      tree)))

; [] [+ & *] [1 2 3 4] 1+23*4
; [+ 1 2] [& *] [3 4] - initial tree
; [+ 1 [& 2 3]] [*] [4] - binds more strongly than + so replace right-most
; node
; [+ 1 [* [& 2 3] 4]] [] [] - descend until do not bind more tightly, and
; extend

(println (priority-tree ['+ '& '*] [1 2 3 4])) ; 1+23*4
(println (priority-tree ['& '- '* '+ '&] [1 2 3 4 5 6])) ; 12 - 3*4 + 56

The output from the last two lines is:

(+ 1 (* (& 2 3) 4))
(+ (- (& 1 2) (* 3 4)) (& 5 6))

(I should have explained earlier that "&" is the pseudo-operator to combine
two digits into a number, so (& 1 2) is 12).

I know it's not ground-breaking or super-exciting, but it was fun to write...

Andrew

Re: Cute Piece of Clojure Code

From: andrew cooke <andrew@...>

Date: Mon, 16 Apr 2012 07:07:24 -0300

Thanks - fixed now.

Andrew

Cute Piece of Clojure Code

From: Tuom Larsen <tuom.larsen@...>

Date: Mon, 16 Apr 2012 11:07:36 +0200

Hello,

are you sure about the link in your article? As it point to:
http://stackoverflow.com/questions/10161917/changing-name-of-uploaded-images

Kind regard,

Tuom

Wrong SO question?

From: Ashok Bakthavathsalam <ashok@...>

Date: Mon, 23 Apr 2012 04:30:38 +0000

Andrew,

Thank you very much for your answer for the SO question, and also for your =
blog article explaining the mathematical puzzle (http://www.acooke.org/cute=
/CutePieceo0.html). By the way, I think you may have the wrong link to the =
SO question in your write-up. Please check.

http://stackoverflow.com/questions/10161971/improving-performance-of-racket=
-code-and-error-when-trying-to-byte-compile versus http://stackoverflow.com=
/questions/10161917

I have been pleasantly surprised to get contributions from you (Chile) and =
Lopez (Colombia). What are all you software guns upto in S America? Would b=
e great to have you come and teach students/professionals in India about Cl=
ojure and Scheme, and programming in general.

Thanks,

  % ashok

Comment on this post