cohalz

let rec zip lst1 lst2 =
  match (lst1,lst2) with
  | ([],_) | (_,[]) -> []
  | ((x::xs),(y::ys)) -> (x,y)::zip xs ys

cohalz

(*´･_･`*)
let rec unzip = function
  | [] -> ([],[])
  | (x,y)::xs -> (x::fst (unzip xs),y::snd (unzip xs))

cohalz

let rec filter p = function
  | [] -> []
  | x::xs -> if p x then x::filter p xs else filter p xs

cohalz

let rec take lst n = 
  match (lst,n) with
  | ([],_) -> []
  | (x::xs,m) -> if m <= 0 then [] else x::(take xs) (m-1)
  
let rec drop lst n = 
  match (lst,n) with
  | ([],_) -> []
  | (x::xs,m) -> if m > 1 then take xs (m-1) else xs

cohalz

let rec max_list = function
  | [] -> 0
  | x::xs -> let max = max_list xs in if x >= max then x else max

cohalz

let rec mem a s =
  match (a,s) with
  | (_,[]) -> false
  | (b,x::xs) -> if b = x then true else mem b xs

cohalz

import System.Environment
import Data.List
import System.Directory
import System.IO
import Control.Exception

dispatch :: String -> [String] -> IO ()
dispatch "add" = add
dispatch "view" = view
dispatch "remove" = remove

cohalz

//grepでdefのある行を抽出したファイルからvim用のdict向けに結果を出力
//例：grep -r -h def */scalaz-scalaz-seven > scalaz.txt
//    scalaToDict.scala scalaz.txt > scalaz.dict
import scala.io.Source
val reg = """def\s(.+?)[\s\[\(]""".r
if(args.length > 0) {
  val lines = Source.fromFile(args(0)).getLines().toList
  val defdict = for(line <- lines;m <- reg.findFirstMatchIn(line)) yield m.group(1)
  val defdictsorted = defdict.sorted.distinct
  defdictsorted.foreach(println)

cohalz

set nocompatible
set hidden
filetype off
set autoread
set noswapfile  
if has('vim_starting')
  set runtimepath+=~/.vim/bundle/neobundle.vim
  call neobundle#rc(expand('~/.vim/bundle'))
endif

cohalz

let $SSH_ASKPASS = simplify($VIM . '/../../MacOS') . '/macvim-askpass'
set noimdisable
set imdisableactivate

if has('gui_macvim')
  set guioptions-=T
  set showtabline=0    
  set imdisable        " IME OFF
  set guioptions-=T    " ツールバー非表示