yaraki

package main

import (
	"fmt"
	"math/rand"
)

const doors = 3
const trials = 10000
const seed = 15

yaraki

package yaraki.dialogdemo.app;

import android.app.AlertDialog;
import android.app.Dialog;
import android.content.DialogInterface;
import android.support.v4.app.DialogFragment;
import android.support.v4.app.Fragment;
import android.support.v7.app.ActionBarActivity;
import android.os.Bundle;
import android.view.LayoutInflater;

yaraki

yaraki

#include <iostream>
#include <sstream>

namespace ya {

void each_token(std::istream& input, void (*proc)(const std::string& token))
{
    std::stringstream buffer;
    auto send = [&buffer, &proc]() {
	if (0 < buffer.tellp()) {

yaraki

// clang++ -o minitest minitest.cpp -std=c++1y -stdlib=libc++

#include <iostream>

#define TEST_PREDICATE(expr, oper)                                   \
    do {                                                             \
        auto expr__ = (expr);                                        \
        if (!(expr__ oper)) {                                        \
            std::cout << __FILE__ << ":" << __LINE__ << " "          \
                      << "FAILED " << #expr << " " << #oper          \

yaraki

package com.arakitech.kotlisp

import java.util.HashMap

fun StringBuilder.clear() {
    this.setLength(0)
}

class Tokenizer(val input: String) {
    private var position = 0

yaraki

#include <iostream>
#include <list>
#include <thread>

namespace ya {

    template<class item_t>
    class channel {

    private:

yaraki

(defconst if3 (* 2 3))
(defconst if5 (* if3 4 5))
(defconst if7 (* if5 6 7))
(defconst if9 (* if7 8 9))
(defconst if11 (* if9 10 11))

(defun simple-sine (x)
  (unless (eq 'float (type-of x))
    (setf x (float x)))
  (let* ((x2 (* x x))

yaraki

(in-package :cl-user)
(defpackage forth
  (:use :cl)
  (:export :run
           :clear
           :create-context))
(in-package :forth)

(defstruct context
  (dictionary (make-hash-table :test 'equal))

yaraki

#!/usr/bin/env ruby
# -*- coding: utf-8 -*-
#
# Copyright (C) 2013 Yuichi Araki
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
#      http://www.apache.org/licenses/LICENSE-2.0