naohaq

load "foo.rb"

puts a  # Error!

naohaq

#include <stdio.h>

int
main( )
{
	int c;
	int newl = 0;
	while((c = getchar( )) != EOF) {
		if (c == '\r' || c == '\n') {
			newl = 1;

naohaq

colinux> ruby local.rb
foo(true):
  a is not defined.
  a is defined.
  a = 1

foo(false):
  a is not defined.
  a is defined.
  a = nil

naohaq

#!/usr/bin/ruby1.9.1 -Ku
# -*- mode: ruby; coding: utf-8-unix -*-

class Foo
   def if(p,t,f)
      if p.call then
         t.call
      else
         f.call
      end

naohaq

#!/usr/bin/ruby1.9.1 -Ku
# -*- mode: ruby; coding: utf-8-unix -*-

class Conditional
   class Else
      def initialize(p,v)
         @p = p
         @v = v
      end

naohaq

#include <stdio.h>

void
f(int * p)
{
	*p = 2;
}

int
main(int argc, char * argv[])

naohaq

#!/bin/sed -f

s/[05]$/& @Buzz/
s/[12346789]$/& @/

s/^[0-9]/@&/
T
{
   :loop
   s/@\([0-9]\)\(.* \)/\1@\2\1/

naohaq

#include <stdio.h>
#include <stdlib.h>

struct hoge * tmp_ptr;

void
foo( void )
{
	printf("%p\n", tmp_ptr);
}

naohaq

mysequence :: (Monad m) => [m a] -> m [a]
mysequence xs = loop xs []
  where loop []     ys = return $ reverse ys
        loop (x:xs) ys = x >>= \y -> loop xs (y:ys)

naohaq

colinux> ruby uminus.rb
a(0) called.
a(-3) called.
c = -3
d = -6