This is a last-write-wins Riak application running across five nodes. Clients are subject to a perfect global write lock: no two clients will ever change a key at the same time. "." means 100 writes, "!" means a single failed write. The string of !!!s in the middle, gradually decreasing in density, is the effect of a network partition followed b…

gistfile1.txt

user=> (run (apps (comp locking-app riak-lww-sloppy-quorum-app)))
.......!!!!!!!!!!!!!!!!!!!!.!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!.!!!!!!!!!!!!!!!!.!!!!!!!!.!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!.........Hit enter when ready to collect results.
  #_=> 
Writes completed in 178.326 seconds

2000 total
1841 acknowledged
1246 survivors
599 acknowledged writes lost! (╯°□°）╯︵ ┻━┻
505 506 510 511 515 516 ... 1985 1986 1990 1991 1995 1996
4 unacknowledged writes found! ヽ(´ー｀)ノ
(242 384 419 604)
0.9205 ack rate
0.32536665 loss rate
0.0021727323 unacknowledged but successful rate

gistfile2.clj

(defn riak-lww-sloppy-quorum-app
  [opts]
  (riak-app (merge {:read {:r Quora/QUORUM}
                    :write {:w Quora/QUORUM
                            :dw Quora/QUORUM}
                    :bucket-opts {:allow-siblings false
                                  :n-val 3}}
                   opts)))