knjname

satisfy = (fn) ->
	_f = (args, length) ->
		return fn args... if length is 0
		more = (bool) -> _f [args..., bool], length - 1
		more(true) or more(false)
	_f [], fn.length

console.log (satisfy (a, b) -> a and b)
console.log (satisfy (a) -> false )

knjname

@withGlobals = (prop, fn) =>
	swap = => [@[k], prop[k]] = [prop[k], @[k]] for k of prop
	try
		do swap
		do fn
	finally
		do swap

@withGlobals {alert : (v) -> console.log(v) }, =>

knjname

# requires underscore.js
foldl = (ls, fn, head) ->
	head = fn head, e for e in ls
	head

console.log foldl [1..10], ((l,r)->l+r), 0

accessPropByNames = (obj, names) ->
	foldl names, ((l,r)-> l?[r]), obj

knjname

firstNumber = (taken) ->
	unless taken[num = Math.floor( Math.random() * 100 )]
		taken[num] = true
		num
	else
		firstNumber taken

class BingoCell
	constructor : (@num) ->

knjname

bingoMaxNumber = 75

firstNumber = (taken) ->
	unless taken[num = Math.floor( Math.random() * bingoMaxNumber )]
		taken[num] = true
		num
	else
		firstNumber taken

knjname

bingoMaxNumber = 75

firstNumber = (taken) ->
	unless taken[num = 1 + Math.floor( Math.random() * (bingoMaxNumber - 1) )]
		taken[num] = true
		num
	else
		firstNumber taken

knjname

bingoMaxNumber = 75

firstNumber = (taken, l = 1, h = bingoMaxNumber) ->
	unless taken[num = l + Math.floor( Math.random() * (h - l) )]
		taken[num] = true
		num
	else
		firstNumber taken

knjname

deferredize = (obj)->
  obj = obj() if typeof obj is 'function'
  def = $.Deferred()
  obj.onsuccess = (args...)-> def.resolve args...
  obj.onerror = (args...) -> def.reject args...

knjname

wrap = (wrapped, wrapper) -> (args...)-> wrapper.apply(wrapped, args)

# wrapper can invoke wrapped with @().

knjname

asc = (l,r) -> l - r

med = (list) ->
	sorted = [list...].sort(asc)
	prev = Math.floor((sorted.length - 1) / 2) 
	next = Math.ceil((sorted.length - 1) / 2)
	(sorted[prev] + sorted[next]) / 2

most = (list) ->