松舘剛志 func-hs

新社会人に必須である：

WebRTC コトハジメ

この記事が良いと思ったらこの記事に Star をお願いします

2017 年 4 月 1 日に行われた Elixir Conf Japan 2017 の発表者用のメモです。

以下に移動しました。

	(defun a-ikutu (lst)
	(length (filter #'(lambda (x) (eq x 'a)) lst)))


	;; filter関数
	(defun filter (pred lst)
	(cond ((null lst) nil)
	((funcall pred (car lst))
	(cons (car ls) (filter pred (cdr lst))))
	(t (filter pred (cdr lst)))))

	module Sort (
	bubbleSort,
	mergeSort,
	quickSort) where

	import Data.List (splitAt)

	bubbleSort, mergeSort, quickSort :: Ord a => [a] -> [a]

	bubbleSort xs = foldr ((.) bubbleSort' . flip const) xs [0..length xs]

	{-# LANGUAGE MultiParamTypeClasses #-}
	{-# LANGUAGE TypeSynonymInstances #-}
	{-# LANGUAGE FlexibleInstances #-}
	{-# LANGUAGE FlexibleContexts #-}

	module Control.Implicit where

	import qualified Data.Text as T
	import qualified Data.ByteString.Char8 as BS
	import qualified Data.ByteString.Lazy.Char8 as BSL

	" plugin directory
	let s:dein_dir = expand('~/.vim/bundle')

	" dein.vim
	let s:dein_repo_dir = s:dein_dir . '/repos/github.com/Shougo/dein.vim'

	" download dein.vim if it's not installed
	if &runtimepath !~# '/dein.vim'
	if !isdirectory(s:dein_repo_dir)
	execute '!git clone https://github.com/Shougo/dein.vim' s:dein_repo_dir