Simple LIFO, FIFO Functions written in CoffeeScript

lifo_fifo.coffee

# ---------------------------------
# Simple LIFO, FIFO Functions
# written in CoffeeScript
# ---------------------------------

verbrauch = (arr, menge) ->
  res= []
  for el in arr
   if el >= 0
     if el > menge
       res.push (el-menge)
       menge = 0
     else
       res.push 0
       menge = menge - el
  res

fifo= (arr) ->
  res= []
  for el in arr
    if el < 0
      res = verbrauch(res,-el)
    else
      res.push (el)
  res

lifo= (arr) ->
  res= []
  for el in arr
    if el < 0
      res.reverse().push(el)
      res = fifo(res).reverse()
    else
     res.push(el)
  res

# ---------------------------------
# Test
# ---------------------------------

arr1 = [5,-4,3,6,-2,11,-3,1,1]

# FiFo [0,0,5,11,1,1]
alert "FiFo: ["+arr1+"] -> ["+(fifo arr1)+"]"

# LiFo [1,3,4,8,1,1]
alert "LiFo: ["+arr1+"] -> ["+(lifo arr1)+"]"