annotate paste/paste.12049 @ 12246:f3be034784d0 draft

<b_jonas> addwhatis brachylog(1egobot) - Brachylog, a Prolog-like golf language
author HackEso <hackeso@esolangs.org>
date Thu, 05 Dec 2019 23:44:34 +0000
parents e925c0adf7ad
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
434
e925c0adf7ad <elliott> paste lib/karma
HackBot
parents:
diff changeset
1 #!/bin/sh
e925c0adf7ad <elliott> paste lib/karma
HackBot
parents:
diff changeset
2 count () {
e925c0adf7ad <elliott> paste lib/karma
HackBot
parents:
diff changeset
3 hg log --template '{desc}\n' |
e925c0adf7ad <elliott> paste lib/karma
HackBot
parents:
diff changeset
4 egrep '<[^]]*> karma\'$1 |
e925c0adf7ad <elliott> paste lib/karma
HackBot
parents:
diff changeset
5 fgrep -vix "<$2> karma$1 $2" |
e925c0adf7ad <elliott> paste lib/karma
HackBot
parents:
diff changeset
6 cut -d' ' -f3 |
e925c0adf7ad <elliott> paste lib/karma
HackBot
parents:
diff changeset
7 fgrep -cix "$2"
e925c0adf7ad <elliott> paste lib/karma
HackBot
parents:
diff changeset
8 }
e925c0adf7ad <elliott> paste lib/karma
HackBot
parents:
diff changeset
9 plus=$(count + "$1")
e925c0adf7ad <elliott> paste lib/karma
HackBot
parents:
diff changeset
10 minus=$(count - "$1")
e925c0adf7ad <elliott> paste lib/karma
HackBot
parents:
diff changeset
11 echo $(($plus-$minus))
e925c0adf7ad <elliott> paste lib/karma
HackBot
parents:
diff changeset
12