danprince

(require '[clojure.string :as s])
(defn r[e]
  (load-string 
    (reduce 
      (fn[x c] 
        (s/replace x #"([\+\-\*\/] (\(.*\) \d+|\d+ \d+))" "($0)")) 
      e 
      (subvec (s/split e #"\d") 1))))

danprince

p=function($){for(s="substr",i=e=t=0,_=" ",$+=_;i<$.length;c=$[i],isNaN(c)&&c!=_?(e=0,t=i):0,i++,c==_?++e==3?(x=$[s](t,i).trim().split(_),x.unshift(x.pop()),x=eval(x.join(""))+_,$=$[s](0,t)+x+$[s](i),i=0):0:0){}
return $}

danprince

m=".-|-...|-.-.|-..|.|..-.|--.|....|..|.---|-.-|.-..|--|-.|---|.--.|--.-|.-.|...|-|..-|...-|.--|-..-|-.--|--..".split("|")
m[-33]=" "
t=function(s){
	for(o="",i=0;i<s.length;o+=m[s.charCodeAt(++i)-65]){}
	return o
}

danprince

def t(s)
o=''
s.each_byte{|c|o+='.-|-...|-.-.|-..|.|..-.|--.|....|..|.---|-.-|.-..|--|-.|---|.--.|--.-|.-.|...|-|..-|...-|.--|-..-|-.--|--..'.split('|')[c-65]||' '}
o
end

danprince

sum = (i) ->
  i.map((e) ->
    (if typeof e is "object" then sum(e) else e)
  ).filter((e) ->
    typeof e is "number"
  ).reduce (p, c) ->
    p + c

danprince

m=(a,b)->
  o=[]
  a.map (y,j) ->
    alert [y,b[j]].join("")

danprince

 /*  *   *   *   *   *   *  
 ||  ||  ||  ||  ||  ||  ||
 ||  ||  ||  ||  ||  ||  ||
 ||  ||  ||  ||  ||  ||  ||
 ||  ||  ||  ||  ||  ||  ||
 ||  ||  ||  ||  ||  ||  ||*/
c= function(i) {a.push(i*1)};
a=[];c(14/2+"2"),c(97),c(10+1
+"2");c(112),c("1"+2+"1"), c(
32);c(36/6+""+48/8),c("1"+ (+

danprince

-- uncompressed
split str del = foldr (\col ltr -> 
    if ltr /= del then 
        (ltr:head col):tail col 
    else 
        []:col) [""] str

-- compressed
x s d = foldl (\c l -> if l/=d then (l:head c):tail c else []:c) [""] s

danprince

x :=method(s,d,
    doString("list(\"".. 
        s asMutable replaceSeq(d,",") ..
    "\")")
)


// compressed
x :=method(s,d,doString("list(\"".. s asMutable replaceSeq(d,",") .."\")"))

danprince

l=do->
 x=[]
 (a,s)->
  |s=>x[a]=s
  x[a]