papamitra

// MapController(Dummy)
package com.google.android.maps;

import android.view.KeyEvent;
import android.view.View;

public final class MapController implements android.view.View.OnKeyListener {

	MapController(MapView mapView) {
	}

papamitra

// MapView(Dummy)
package com.google.android.maps;

import android.content.Context;
import android.graphics.Canvas;
import android.graphics.Rect;
import android.os.Bundle;
import android.util.AttributeSet;
import android.view.KeyEvent;
import android.view.MotionEvent;

papamitra

// 最大回避ヒープ
object BinaryTree{
  import scala.math._

  case class Fork[T](val cnt:Int, val v:T, val lhs:Tree[T], val rhs:Tree[T]){
    override def toString = "(" + v.toString + "," + (lhs.toString) + "," + rhs.toString + ")"
    def size = cnt
  }

  def merge[T<%Ordered[T]](lhs:Tree[T],rhs:Tree[T]):Tree[T] = (lhs,rhs) match {

papamitra

#!/bin/sh
exec scala -deprecation "$0"
!#
// ScalaのfjbgでHello,World

import ch.epfl.lamp.fjbg._

val context = new FJBGContext()
import JAccessFlags._
val jclass = context.JClass(ACC_PUBLIC,

papamitra

// Scalaの限定継続で四天王問題解いてみた
// scalac -P:continuations:enable Amb.scala

import scala.util.continuations._

object Amb{

  def amb(lst:Int*):Int @ cpsParam[Unit,Unit] = shift{k:(Int=>Unit) => lst.foreach(k)}
  def require(p:Boolean):Unit @ cpsParam[Unit,Unit] = shift{k:(Unit=>Unit) => if(p)k()}

papamitra

// Scalaの限定継続で四天王問題解いてみた その２
// http://q.hatena.ne.jp/1284217294
// scalac -P:continuations:enable Amb2.scala

import scala.util.continuations._

object Amb{

  def amb[T](lst:T*):T @ cpsParam[Unit,Unit] = shift{k:(T=>Unit) => lst.foreach(k)}
  def require(p:Boolean):Unit @ cpsParam[Unit,Unit] = shift{k:(Unit=>Unit) => if(p)k()}

papamitra

package localhost

import scala.tools.nsc
import nsc.Global
import nsc.plugins.Plugin
import nsc.plugins.PluginComponent
import nsc.transform.Transform
import scala.tools.nsc.ast.TreeGen

import scala.tools.nsc.symtab.Flags

papamitra

package localhost

import scala.tools.nsc
import nsc.Global
import nsc.plugins.Plugin
import nsc.plugins.PluginComponent
import nsc.transform.Transform

class LazyTracePlugin(val global: Global) extends Plugin {
  import global._

papamitra

object MyIteratee{
  sealed trait Input[+E] {
  }

  object Input {
    case class El[+E](e: E) extends Input[E]
    case object EOF extends Input[Nothing]
  }

  trait Iteratee[E, A] {

papamitra

import Control.Monad(forM_)
import Text.Printf

main :: IO()
main = do
  txt <- getContents
  let ls = lines txt
      num = head ls
      ps = mklist $ tail ls