Skip to content

Instantly share code, notes, and snippets.

View emanon001's full-sized avatar

emanon001 emanon001

12 followers · 7 following
View GitHub Profile
@emanon001
emanon001 / drop-starts-same.clj
Last active December 18, 2015 07:09
;;;; http://npnl.hatenablog.jp/entry/20110812/1313138407
(ns twenty-five-minutes-programming.drop-starts-same
(:use [clojure.test :only [are]]))
(defn drop-starts-same
[& args]
(if (some empty? args)
args
@emanon001
emanon001 / install-munin-on-osx.markdown
Last active December 13, 2015 18:59
OS X に Munin サーバとクライアントを導入したときのメモ(現在進行系)
@emanon001
emanon001 / post-commit.sh
Last active December 12, 2015 04:18
Jenkins の SVN Plugin 用の post-commit ファイル。
#!/bin/bash
REPOS="$1"
REV="$2"
UUID=$(svnlook uuid $REPOS)
# 適宜設定
JENKINS_HOME=http://localhost:8080
svnlook changed --revision $REV $REPOS | /usr/bin/curl \
@emanon001
emanon001 / invert_map_key_and_value.clj
Last active December 11, 2015 00:39
(defn invert
[m]
(into {} (for [[k v] m] [v k])))
@emanon001
emanon001 / problem_20.clj
Created January 6, 2013 08:56
Project Euler Problem 20 #mitori_clj
;;; Project Euler Problem 20
;;; 「100! の各桁の数字の和を求めよ」
;;; http://odz.sakura.ne.jp/projecteuler/index.php?cmd=read&page=Problem%2020
(ns emanon001.projecteuler-answers.problem-020
(:require [clojure.test :refer [are]]))
(defn factorial
"n の階乗を返します"
[n]
@emanon001
emanon001 / problem_13.clj
Last active December 10, 2015 01:18
Project Euler Problem 13 #mitori_clj
;;; Project Euler Problem 13
;;; 「50桁の数字100個の和の上位10桁を求めよ」
;;; http://odz.sakura.ne.jp/projecteuler/index.php?cmd=read&page=Problem%2013
(ns projecteuler-answers.problem-013
(:require [clojure.math.numeric-tower :as math]
[clojure.test :refer [are]]))
(def nums
[37107287533902102798797998220837590246510135740250
@emanon001
emanon001 / README.md
Last active December 9, 2015 20:48 — forked from shunirr/README.md

Jenkins をOS X のログインユーザー権限のデーモンで自動起動しておく設定

必要なもの

うっかり jenkins.pkg を入れてしまった人はアンインストールする

@emanon001
emanon001 / problem_6.clj
Created December 15, 2012 09:08
Project Euler Problem 6 #mitori_clj
;;; Project Euler Problem 6
;;; 「二乗の和と和の二乗の差はいくつか?」
;;; http://odz.sakura.ne.jp/projecteuler/index.php?cmd=read&page=Problem%206
(use 'clojure.test)
(defn sum-of-squares
"与えられた数列についてその二乗の和を返します"
[nums]
(apply + (map #(* % %) nums)))
@emanon001
emanon001 / problem_3.clj
Created December 8, 2012 08:41
Project Euler Problem 3 #mitori_clj
;;; Project Euler Problem 3
;;; http://odz.sakura.ne.jp/projecteuler/index.php?cmd=read&page=Problem%203
(use 'clojure.test)
(defn prime?
[n]
(if (= 1 n)
false
(every? (complement #(zero? (rem n %)))
@emanon001
emanon001 / define_repl_key_mappings_of_vimclojure_v2_3_4_or_later.vim
Created September 18, 2012 13:46
augroup clojure-extension
autocmd!
autocmd FileType vimclojure.clojure call s:vimclojure.define_repl_key_mappings()
augroup END
let s:vimclojure = {}
function! s:vimclojure.define_repl_key_mappings()
" define favorite key mappings here.
imap <buffer> <silent> <C-n> <Plug>ClojureReplDownHistory.
imap <buffer> <silent> <C-p> <Plug>ClojureReplUpHistory.