Akeboshiwind

(defn heavy-hitter
  "Output the lement in the list that came up more than 50% of the time, nil otherwise."
  [lst]
  (let [heavy (heavy-hitter* lst)]
    (when (->> lst
             (filter (partial = heavy))
             (count)
             (<= (/ (count lst) 2)))
      heavy)))

Akeboshiwind

"! Remember to reload all tabs after changing
" Auto update settings from this gist
set autoupdategist

" Turn on smoothscroll and slow it down
set smoothscroll
let scrollduration=300

" Try to not let the webpage grap focus
set noautofocus

Akeboshiwind

Programming Achievements: How to Level Up as a Developer

This gist is part of a blog post. Check it out at:

http://jasonrudolph.com/blog/2011/08/09/programming-achievements-how-to-level-up-as-a-developer

1. Select a particular experience to pursue.
2. Pursue that experience to completion. (Achievement unlocked!)
3. Reflect on that experience. Really soak it in.

Akeboshiwind

Private ID As Integer
Private DateDate As Date
Private Period As Integer
Private Duration As Integer
Private Repetitions As Integer

Public Sub Construct(c_ID As Integer)
    
    ID = c_ID
    Me.LoadData