parallel-promises.ls

require! \Q

# if you're not using prelude-ls
each = (fn, array) ->
  [fn i for i in array]

random-msec = ->
  Math.ceil Math.random! * 1000

delay = (n, v) ->
  d = Q.defer!
  set-timeout (-> d.resolve v), n
  return d.promise

# list of promises constructed with a list comprehension
Q.all [delay random-msec!, i for i from 1 to 10]
  .then (plist) -> console.log each (.value-of! * 2), plist # promise list
  .fail (error) -> console.log error