emanon001

function! any_plugin#util#lock_constants(scope)
  for name in keys(a:scope)
    if name =~# '^\u'
      lockvar! a:scope[name]
    endif
  endfor
endfunction

emanon001

(defn api-names-for-each-version-in-ns
  [ns-sym]
  (->> (ns-publics ns-sym)
    vals
    (map meta)
    (filter :added)
    (map (fn [{:keys [name added]}] {added [name]}))
    (apply merge-with concat)))

emanon001

augroup clojure-extension
  autocmd!
  autocmd FileType clojure call s:vimclojure.define_repl_key_mappings()
augroup END

let s:vimclojure = {}
function! s:vimclojure.define_repl_key_mappings()
  if self.repl_buffer_p()
    " define favorite key mappings here.
    imap <buffer> <silent> <C-n> <Plug>ClojureReplDownHistory.

emanon001

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.

emanon001

;;; 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

;;; 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

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

必要なもの

• jenkins-runner.sh (下にあるやつ)
• jenkins.plist (下にあるやつ)
• jenkins.war http://mirrors.jenkins-ci.org/war/latest/jenkins.war

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

emanon001

;;; 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

;;; 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

(defn invert
  [m]
  (into {} (for [[k v] m] [v k])))