load full-k5--authors.sw
|null> => find-inverse[author] |>

is-diary |*> => |no>
is-diary |diary: *> => |yes>
is-comment |*> => |no>
is-comment |comment: *> => |yes>

the-list-of |kurons> => ket-sort rel-kets[inverse-author] |>

total |posts> => how-many rel-kets[author] |>
total |comments> => how-many such-that[is-comment] rel-kets[author] |>
total |diaries> => how-many such-that[is-diary] rel-kets[author] |>

how-many-posts |*> !=> how-many inverse-author |_self>
how-many-comments |*> !=> how-many such-that[is-comment] inverse-author |_self>
how-many-diaries |*> !=> how-many such-that[is-diary] inverse-author |_self>

percent-total-posts |*> !=> round[4] times[100] arithmetic(how-many-posts |_self>,|/>,total |posts>)
percent-total-comments |*> !=> round[4] times[100] arithmetic(how-many-comments |_self>,|/>,total |comments>)
percent-total-diaries |*> !=> round[4] times[100] arithmetic(how-many-diaries |_self>,|/>,total |diaries>)

|null> => table[kuron,how-many-posts,how-many-diaries,how-many-comments] the-list-of |kurons>
|null> => table[kuron,percent-total-posts,percent-total-diaries,percent-total-comments] the-list-of |kurons>

save k5-user-stats.sw

rank-table[kuron,how-many-posts,percent-total-posts] select[1,500] reverse sort-by[how-many-posts] the-list-of |kurons>
rank-table[kuron,how-many-comments,percent-total-comments] select[1,500] reverse sort-by[how-many-comments] the-list-of |kurons>
rank-table[kuron,how-many-diaries,percent-total-diaries] select[1,500] reverse sort-by[how-many-diaries] the-list-of |kurons>

rank-table[kuron,how-many-posts,percent-total-posts] reverse sort-by[how-many-posts] the-list-of |kurons>
rank-table[kuron,how-many-comments,percent-total-comments] reverse sort-by[how-many-comments] the-list-of |kurons>
rank-table[kuron,how-many-diaries,percent-total-diaries] reverse sort-by[how-many-diaries] the-list-of |kurons>

------------------------------------------------------
sa: how-many the-list-of |kurons>
|number: 12866>

sa: total |posts>
|number: 1880294>

sa: total |comments>
|number: 1718554>

sa: total |diaries>
|number: 161740>