pheuter

λx.x

pheuter

[:defn,
  :add,
   [:args, :x, :y],
   [:call, [:lvar, :x], :+, [:arglist, [:lvar, :y]]]]

[:call, :add, [:arglist, [:lit, 2], [:lit, 3]]]

pheuter

def add(x,y)
  x+y
end

add(2,3)

pheuter

document.body.appendChild(document.createElement('script')).src='http://code.jquery.com/jquery-1.4.3.min.js';

setTimeout(function () {
  $("textarea").after(function () { 
    return "<p style='color:blue;'>Word count: <b>"+$(this).val().split(/\s+/).length+"</b></p>" 
  });
  wc = function(ta) { ta.siblings().html('Word count: <b>'+ta.val().split(/\s+/).length+'</b>'); };
  $("textarea").keypress(function() { 
    wc($(this)); 
  }

pheuter

.LC0:   
        .string "%d"
        .text
.globl main
        .type   main, @function
main:
.LFB0:  
        .cfi_startproc
        pushq   %rbp
        .cfi_def_cfa_offset 16

pheuter

! With local bindings (7 loc)

: merge ( x y z -- z )
  [| a b c | a b c a length 0 > b length 0 > and ]
  [| a b c | a b c 0 a nth 0 b nth over over < 
    [| a b c x y | 0 a remove-nth b c x over push ]
    [| a b c x y | a 0 b remove-nth c y over push ] if ] 
  while
  [| a b c | a b c b length 0 = [| a b c | c a append ] [| a b c | c b append ] if ] call ;

pheuter

// ~ 27 loc

#import <Foundation/Foundation.h>

@interface Main : NSObject
{
    NSMutableArray *a1, *a2, *merged;
}

@property(nonatomic, assign) NSMutableArray *a1, *a2, *merged;

pheuter

// ~ 3 loc

var puts = require('sys').puts;

function merge (a1, a2) {
  var merged = [];
  while(a1 && a2 != '') merged.push(a1[0] <= a2[0] ? a1.shift() : a2.shift());
  return merged.concat(a1 != '' ? a1 : a2);
}

pheuter

def f(*x) {:f=>->(o){p o}}[:f][x*", "] end
f 'Hello', gets

pheuter

gem list | ruby -e "while line = STDIN.gets do puts line[/([\w_-]+)/,1] end" | parallel gem uninstall