kaosf

キュア(アクア|ビューティ|(メロ|ウィン)ディ|ミューズ|ロゼッタ|マーチ|(イーグレッ|ムーンライ|ホワイ|ミン|ハー|ビー)ト|(ソ|レモネ)ード|ダイヤモンド|リズム|ドリーム|ルージュ|(サンシャイ|パ(イ|ッショ)|マリ)ン|(サニ|ハッピ|ベリ|フラワ)ー|ピー[スチ]|エ(コー|ンプレス|ース)|ブ(ライト|ラック|ルーム|ロッサム))|シャイニールミナス|ミルキィローズ

kaosf

; https://codeiq.jp/magazine/2013/11/2764/

(def inf-fib
  (map (fn [x] (x 1))
       (iterate
         (fn [[a b]] [b (+ a b)])
         [1 2])))

(defn sum-of-dec-string [s]
  (reduce +

kaosf

この記事はプリキュア Advent Calendar 2013 の 12 月 9 日のものである．

プリキュア大陸のはじまりの話

2013 年 6 月 1 日，とある大物 Twitter ユーザの方が突如「スマイルプリキュア」と呟いた．

どうやら娘さんが勝手にスマホを使って，検索をしようとしたそうである．

面白いなと思って自分も勝手にスマイルプリキュアとつぶやく環境を作ろうとした．

kaosf

#! /bin/sh

X='http://livedoor.blogimg.jp/peperon999/imgs/'
Y='precure-20131226-'
Z='-response-'
wget ${X}c/7/c7ec6181.jpg -O ${Y}000${Z}c-7-c7ec6181.jpg
wget ${X}c/c/cc9f50b3.jpg -O ${Y}001${Z}c-c-cc9f50b3.jpg
wget ${X}a/7/a748ebea.jpg -O ${Y}002${Z}a-7-a748ebea.jpg
wget ${X}8/d/8d95d5cf.jpg -O ${Y}003${Z}8-d-8d95d5cf.jpg
wget ${X}b/7/b7651c4a.jpg -O ${Y}004${Z}b-7-b7651c4a.jpg

kaosf

#! /bin/sh

while true
do
  echo -n `uptime`
  echo -n \
  "\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b"
  sleep 1
done

kaosf

configure.ac:8: required file `./config.guess' not found
configure.ac:8:   `automake --add-missing' can install `config.guess'
configure.ac:8: required file `./config.sub' not found
configure.ac:8:   `automake --add-missing' can install `config.sub'
configure.ac:13: required file `./install-sh' not found
configure.ac:13:   `automake --add-missing' can install `install-sh'
configure.ac:13: required file `./missing' not found
configure.ac:13:   `automake --add-missing' can install `missing'
src/Makefile.am: required file `./depcomp' not found
src/Makefile.am:   `automake --add-missing' can install `depcomp'

kaosf

# ref. https://npmjs.org/package/gcm

# How to Use
#   YOUR-EDITOR sender.coffee
#   # fill in apiKey and registration_id
#   npm install -g [email protected]
#   npm install gcm
#   coffee sender.coffee

{GCM} = require 'gcm'

kaosf

(defn exists? [l x]
  (> (.indexOf l x) -1))

(require '[clojure.test :refer :all])

(testing "exists?"
         (is (exists? [1 2 3] 1))
         (is (exists? [1 2 3] 2))
         (is (not (exists? [1 2 3] 0))))

kaosf

; (sum 10) ;-> (+ 10 (sum 9))
; (sum 9)  ;-> (+ 9 (sum 8))
; ...
; (sum 1)  ;-> (+ 1 0)
(defn sum [n] ; foldr
  (case n
    1 1 ;(+ 1 0) ; 0 is initial value
    (+ n (sum (dec n)))))

; [i s] -> [10 0] -> [9 10] -> [8 19] -> ... -> [1 54] -> [0 55]

kaosf

2014-03-07T21:00:22.536342+00:00 app[web.1]: Exception in thread "main" java.lang.IllegalArgumentException: db-spec {:pool #<Delay@4e0bd5df: :pending>, :options {:naming {:keys #<core$identity clojure.core$identity@591bfcbe>, :fields #<core$identity clojure.core$identity@591bfcbe>}, :delimiters ["\"" "\""], :alias-delimiter " AS ", :subprotocol "postgresql"}} is missing a required parameter
2014-03-07T21:00:22.536495+00:00 app[web.1]:    at clojure.java.jdbc$get_connection.invoke(jdbc.clj:192)
2014-03-07T21:00:22.536713+00:00 app[web.1]:    at precure_dcd.models.schema$create_users_table.invoke(schema.clj:19)
2014-03-07T21:00:22.536713+00:00 app[web.1]:    at clojure.lang.RestFn.invoke(RestFn.java:423)
2014-03-07T21:00:22.536713+00:00 app[web.1]:    at precure_dcd.handler$init.invoke(handler.clj:36)
2014-03-07T21:00:22.536713+00:00 app[web.1]:    at precure_dcd.models.schema$create_tables.invoke(schema.clj:34)
2014-03-07T21:00:22.536869+00:00 app[web.1]:    at user$eval54.invoke(form-init3139196912543278507.c