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 / 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.
@emanon001
emanon001 / define_repl_key_mappings_of_vimclojure_v2_3_3.vim
Created September 17, 2012 02:59
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
emanon001 / api-names-for-each-version-in-ns.clj
Created August 31, 2012 10:58
指定した名前空間に存在する API の名前を、追加されたバージョン毎に確認する
(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
emanon001 / lock_constants.vim
Created June 19, 2012 17:03
function! any_plugin#util#lock_constants(scope)
for name in keys(a:scope)
if name =~# '^\u'
lockvar! a:scope[name]
endif
endfor
endfunction
@emanon001
emanon001 / define_boolean.vim
Created June 17, 2012 12:15
function! any_plugin#util#define_boolean(scope)
let a:scope.FALSE = 0
let a:scope.TRUE = !a:scope.FALSE
endfunction
@emanon001
emanon001 / kr4mb_sample.vim
Created April 4, 2012 18:46
Vim script: kr4mb sample.
let g:kr4mb_identifier_aliases = {
\ 'to_dvorak': 'private.remap.device_kinesis_qwerty2dvorak_qwerty'
\ }
command! -nargs=0 DvorakEnable
\ KR4MBEnable to_dvorak
command! -nargs=0 DvorakDisable
\ KR4MBDisable to_dvorak
command! -nargs=0 DvorakToggle
\ KR4MBToggle to_dvorak
@emanon001
emanon001 / prefixedmap_step2.vim
Created March 28, 2012 03:58
Definition of key-mapping using a prefix key. (step2)
" ユーザ定義コマンドが使えるようにプラグインの読み込みを行なう。
call prefixedmap#load()
PrefixedMapBegin <SID>[Tag]
Pnnoremap <Nop>
Pnnoremap <silent> <Space> <C-]>
Pnnoremap <silent> j :<C-u>tag<CR>
Pnnoremap <silent> k :<C-u>pop<CR>
Pnnoremap <silent> s :<C-u>tags<CR>
Pnnoremap <silent> n :tnext<CR>
@emanon001
emanon001 / prefixedmap_ideal.vim
Created March 28, 2012 03:51
Definition of key-mapping using a prefix key. (ideal)
PrefixedMapBegin <SID>[Tag]
" {map-command} {map-arguments} <Nop>
" -> {map-command} {map-arguments} {prefix-key} <Nop>
nnoremap <Nop>
" {map-command} {map-arguments} {lhs} {rhs}
" -> {map-command} {map-arguments} {prefix-key}{lhs} {rhs}
nnoremap <silent> <Space> <C-]>
nnoremap <silent> j :<C-u>tag<CR>
nnoremap <silent> k :<C-u>pop<CR>
nnoremap <silent> s :<C-u>tags<CR>