obelisk68

#!/usr/bin/env ruby
require "gtk2"

class GUI < Gtk::Window
  def initialize
    super("File Search")
    set_width_request(400)
    set_resizable(false)
    @file_name = Dir.pwd
    

obelisk68

require 'numo/narray'
require 'gtk3'

include Numo

SPACE_GRID_SIZE = 256
VISUALIZATION_STEP = 8
Dx = 0.01
Du = 2e-5
Dv = 1e-5

obelisk68

require 'oekaki'
require_relative 'turtle'

Width, Height = 600, 350

Oekaki.app width: Width, height: Height, title: "Knuth curve" do
  draw do
    clear
    
    t = Turtle.new(Width, Height, self)

obelisk68

def parse(text)
  splited = text.scan(/[0-9\.]+|\+|\-|\*|\/|\(|\)|=/)
  output = []
  stack = []
  a = nil
  
  until (token = splited.shift) == "="
    case token
    when "(" then stack << token
    when ")"

obelisk68

deck = nil    #カードの山


shuffle = lambda do
  print "カードをシャッフルします\n\n"
  deck = 4.times.flat_map {|i| (1..13).map {|j| i * 100 + j} }.shuffle
end


# 一回の勝負

obelisk68

def dist(a, b)
  case
  when a[1, 2] == b[0, 2] then 1
  when a[-1] == b[0] then 2
  else 3
  end
end

L = 64
start_t = 171

obelisk68

#!/usr/bin/env ruby
# encoding : utf-8
require 'socket'
require 'thwait'

def file_send
  host = ARGV[0]
  q = Queue.new
  30.times {q.push(:unlock)}
  

obelisk68

#!/usr/bin/env ruby
require 'socket'
require 'thwait'

def file_send
  host = ARGV[0]
  q = Queue.new
  30.times {q.push(:unlock)}
  
  send_file = ->(name) {

obelisk68

class Node < Struct.new(:key, :value, :left, :right)
  def inspect
    l, r = "", ""
    l = ", @left='#{left}'"   if left
    r = ", @right='#{right}'" if right
    "#<Node:@key='#{key}', @value='#{value}'#{l}#{r}>"
  end
  alias :to_s :inspect
end

obelisk68

module Kernel
  def Thunk(&bl)
    a = Thunk.new
    a.value = bl
    a
  end
  
  def Lambda(&bl)
    Lambda.new(bl)
  end