heuristicfencepost

(defn euclidean [x y] (Math/sqrt (+ (Math/pow x 2) (Math/pow y 2))))

(println (for [
	 [x,y] 
	 [[1,2],[2,3],[3,4]] 
	 :when (> (euclidean x y) 3.0)] 
	 [(euclidean x y),(Math/toDegrees (Math/atan (/ y x)))]))

heuristicfencepost

require 'java'
require 'lib/akka-actor-1.2.jar'
require 'lib/scala-library.jar'

java_import 'akka.actor.Actors'
java_import 'akka.actor.UntypedActor'
java_import 'akka.actor.UntypedActorFactory'

module Sieve

heuristicfencepost

class Controller < UntypedActor

    def initialize
      @models = 0.upto(3).map do |idx|
        model = Actors.actorOf { SieveNonblocking::Model.new }
        model.start
        model
      end

      # Seed models with a few initial values... just to get things going

heuristicfencepost

# Load RVM into a shell session *as a function*
if [[ -s "$HOME/.rvm/scripts/rvm" ]] ; then

  # First try to load from a user install
  source "$HOME/.rvm/scripts/rvm"

elif [[ -s "/usr/local/rvm/scripts/rvm" ]] ; then

  # Then try to load from a root install
  source "/usr/local/rvm/scripts/rvm"

heuristicfencepost

# Simple implementation of the productions for the MIU system                                                                                                                    
open INFILE,"<",$ARGV[0];
while(<INFILE>) {

    chomp;
    next if $_ =~ /#.*/;
    print "$1IU\n" if $_ =~ /^(.+?)I$/;
    print "M$1$1\n" if $_ =~ /^M(.+)$/;
    print "$1U$2\n" if $_ =~ /^(.*)III(.*)$/;
    print "$1$2\n" if $_ =~ /^(.*)UU(.*)$/;