Andrew Cooke | Contents | Latest | RSS | 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

Choochoo Training Diary

Last 100 entries

Surprise Paradox; [Books] Good Author List; [Computing] Efficient queries with grouping in Postgres; [Computing] Automatic Wake (Linux); [Computing] AWS CDK Aspects in Go; [Bike] Adidas Gravel Shoes; [Computing, Horror] Biological Chips; [Books] Weird Lit Recs; [Covid] Extended SIR Models; [Art] York-based Printmaker; [Physics] Quantum Transitions are not Instantaneous; [Computing] AI and Drum Machines; [Computing] Probabilities, Stopping Times, Martingales; bpftrace Intro Article; [Computing] Starlab Systems - Linux Laptops; [Computing] Extended Berkeley Packet Filter; [Green] Mainspring Linear Generator; Better Approach; Rummikub Solver; Chilean Poetry; Felicitations - Empowerment Grant; [Bike] Fixing Spyre Brakes (That Need Constant Adjustment); [Computing, Music] Raspberry Pi Media (Audio) Streamer; [Computing] Amazing Hack To Embed DSL In Python; [Bike] Ruta Del Condor (El Alfalfal); [Bike] Estimating Power On Climbs; [Computing] Applying Azure B2C Authentication To Function Apps; [Bike] Gearing On The Back Of An Envelope; [Computing] Okular and Postscript in OpenSuse; There's a fix!; [Computing] Fail2Ban on OpenSuse Leap 15.3 (NFTables); [Cycling, Computing] Power Calculation and Brakes; [Hardware, Computing] Amazing Pockit Computer; Bullying; How I Am - 3 Years Post Accident, 8+ Years With MS; [USA Politics] In America's Uncivil War Republicans Are The Aggressors; [Programming] Selenium and Python; Better Walking Data; [Bike] How Fast Before Walking More Efficient Than Cycling?; [COVID] Coronavirus And Cycling; [Programming] Docker on OpenSuse; Cadence v Speed; [Bike] Gearing For Real Cyclists; [Programming] React plotting - visx; [Programming] React Leaflet; AliExpress Independent Sellers; Applebaum - Twilight of Democracy; [Politics] Back + US Elections; [Programming,Exercise] Simple Timer Script; [News] 2019: The year revolt went global; [Politics] The world's most-surveilled cities; [Bike] Hope Freehub; [Restaurant] Mama Chau's (Chinese, Providencia); [Politics] Brexit Podcast; [Diary] Pneumonia; [Politics] Britain's Reichstag Fire moment; install cairo; [Programming] GCC Sanitizer Flags; [GPU, Programming] Per-Thread Program Counters; My Bike Accident - Looking Back One Year; [Python] Geographic heights are incredibly easy!; [Cooking] Cookie Recipe; Efficient, Simple, Directed Maximisation of Noisy Function; And for argparse; Bash Completion in Python; [Computing] Configuring Github Jekyll Locally; [Maths, Link] The Napkin Project; You can Masquerade in Firewalld; [Bike] Servicing Budget (Spring) Forks; [Crypto] CIA Internet Comms Failure; [Python] Cute Rate Limiting API; [Causality] Judea Pearl Lecture; [Security, Computing] Chinese Hardware Hack Of Supermicro Boards; SQLAlchemy Joined Table Inheritance and Delete Cascade; [Translation] The Club; [Computing] Super Potato Bruh; [Computing] Extending Jupyter; Further HRM Details; [Computing, Bike] Activities in ch2; [Books, Link] Modern Japanese Lit; What ended up there; [Link, Book] Logic Book; Update - Garmin Express / Connect; Garmin Forerunner 35 v 230; [Link, Politics, Internet] Government Trolls; [Link, Politics] Why identity politics benefits the right more than the left; SSH Forwarding; A Specification For Repeating Events; A Fight for the Soul of Science; [Science, Book, Link] Lost In Math; OpenSuse Leap 15 Network Fixes; Update; [Book] Galileo's Middle Finger; [Bike] Chinese Carbon Rims; [Bike] Servicing Shimano XT Front Hub HB-M8010; [Bike] Aliexpress Cycling Tops; [Computing] Change to ssh handling of multiple identities?; [Bike] Endura Hummvee Lite II; [Computing] Marble Based Logic; [Link, Politics] Sanity Check For Nuclear Launch; [Link, Science] Entropy and Life

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

A Useful Julia Macro To Define Equality And Hash

From: andrew cooke <andrew@...>

Date: Fri, 5 Jun 2015 22:04:34 -0300

Julia has two kinds of composite types - immutable and mutable.

Immutable is more like a "value" type.  Instances are copied, and equality and
hash, by default, are based on the "bit pattern" contained.

In contrast, mutable is more like "a pointer to a struct".  Instances are
passed by reference, and equality and hash are based on the address.

If an immutable type includes a field that is a mutable type then equality
will include that address, presumably.

See https://groups.google.com/forum/#!topic/julia-users/Mn1EdDRoiuo


So for all mutable types, and for many immutable types, it is important to
define equality and hash functions that iterate over the contents.

Typically you write code like:

  type Foo
      a::Int
      b
  end
  hash(x::Foo) = hash(x.a, hash(x.b))
  ==(x::Foo, y::Foo) = x.a == y.a && x.b == y.b

Which gets tiring after a time.  Hence this macr which generates the above
from

  @auto type Foo
      a::Int
      b
  end

Disclaimer: this is freshly written, hardly tested, and I am no Julia guru!

Andrew



import Base.hash

function auto_hash(name, names)

    function expand(i)
        if i == length(names)
            :(hash(a.$(names[i])))
        else
            :(hash(a.$(names[i]), $(expand(i+1))))
        end
    end

    quote
        function hash(a::$(name))
            $(expand(1))
        end
    end

end

function auto_equals(name, names)

    function expand(i)
        if i == length(names)
            :(a.$(names[i]) == b.$(names[i]))
        else
            :(a.$(names[i]) == b.$(names[i]) && $(expand(i+1)))
        end
    end

    quote
        function ==(a::$(name), b::$(name))
            $(expand(1))
        end
    end

end

macro auto(typ)

    @assert typ.head == :type

    name = typ.args[2]
    @assert typeof(name) == Symbol

    fields = typ.args[3].args
    names = Array(Symbol,0)
    for i in 1:length(fields)
        if typeof(fields[i]) == Symbol
            push!(names, fields[i])
        elseif typeof(fields[i]) == Expr && fields[i].head == :(::)
            push!(names, fields[i].args[1])
        end
    end

    quote
        $typ
        $(esc(auto_hash(name, names)))
        $(esc(auto_equals(name, names)))
    end
end

Fixed Version

From: andrew cooke <andrew@...>

Date: Sat, 6 Jun 2015 07:37:03 -0300

The code above needs $(esc(typ)) near the end and better unpacking of the name
of a tyope when it is a subclass.

Code used "for real" is available at
https://github.com/andrewcooke/ParserCombinator.jl/blob/master/src/auto.jl

Andrew

Comment on this post