4 ms·

i don't know how current it is, but i believe that hn source is included in the arc download - see http://news.ycombinator.com/item?id=1390685 http://news.ycomb

• rpm4321 14y ago
  My impression is that quite a bit of the source for flagging, vote-ring, and spam detection isn't included in the arc download, for obvious reasons.
• dazbradbury 14y ago
  Good point - could be in here, but it's 1:30am and I probably shouldn't be learning Arc right now! Will take a look in the morning. (= flag-threshold* 30 flag-kill-threshold* 7 many-flags* 1) ; Un-flagging something doesn't unkill it, if it's now no longer ; over flag-kill-threshold. Ok, since arbitrary threshold anyway. (def flaglink (i user whence) (when (and user (isnt user i!by) (or (admin user) (> (karma user) flag-threshold*))) (pr bar*) (w/rlink (do (togglemem user i!flags) (when (and (~mem 'nokill i!keys) (len> i!flags flag-kill-threshold*) (~find admin:!2 i!vote)) (kill i 'flags)) whence) (pr "@(if (mem user i!flags) 'un)flag")) (when (and (admin user) (len> i!flags many-flags*)) (pr bar* (plural (len i!flags) "flag") " ") (w/rlink (do (togglemem 'nokill i!keys) (save-item i) whence) (pr (if (mem 'nokill i!keys) "un-notice" "noted"))))))
  • wavesounds 14y ago
    This is the craziest programming language I have ever seen.