AyaMorisawa

# Money -> Number
money-sum = (money) -> money |> obj-to-pairs |> map apply (*) |> sum

# Number -> Money
to-money = (sum) ->
	sum-places = "0000#sum" |> chars |> reverse |> map parse-int
	10000: floor sum / 10000
	5000: if sum-places.3 >= 5 then 1 else 0
	1000: if sum-places.3 >= 5 then sum-places.3 - 5 else sum-places.3
	500: if sum-places.2 >= 5 then 1 else 0

AyaMorisawa

Number

Standard Math

(+) :: Number -> Number -> Number

(-) :: Number -> Number -> Number

AyaMorisawa

Str.ls

AyaMorisawa

List.ls

AyaMorisawa

Num.ls

AyaMorisawa

Y = (r) -> ((f) -> f f)((f) -> r (x) -> f f x)

AyaMorisawa

usersA = [ id: 4872, name: 'alice' ]
usersB = [ id: 2849, name: 'bob' ]

users = (usersA ++ usersB) |> sort-by (.id)
console.log users

AyaMorisawa

a = name: 'alice'
console.log a.name

b = ^^a
console.log b.name

b.name = 'bob'
console.log b.name
console.log a.name

AyaMorisawa

app = express!
server = http.createServer app
io = require \socket.io .listen do
 	server
	origins: 'hoge.jp:*'

AyaMorisawa

global <<< require \prelude-ls

gen-list-while = (f, max) ->
	list = []
	i = 0
	while f(i) < max then f(i++) |> list.push
	list

memoize = (memo, f) -> shell = (n) -> memo[n] ?= f shell, n