0x0dea

require 'minitest/autorun'
require 'minitest/pride'

# Given a flat array of positive integers, partition it into three sub-arrays
# whose sums are 5, 7, and 5, respectively, or nil if doing so is impossible.
#
# The argument is the syllable (mora) count of each word in some phrase, and
# the purpose of this method is cutting (kiru) the phrase into chunks which
# satisfy the 5-7-5 rule imposed upon modern haiku.
def kiru morae

0x0dea

require 'open3'

i, o = Open3.popen2 'ruby repl.rb'
line = nil

puts 'Gimme Ruby expressions to evaluate (in another process).'

Thread.new do
  i.puts line while line = gets
  i.close

0x0dea

def Process.gsub pat, sub
  mem  = File.open('/proc/self/mem', 'r+')
  maps = File.open('/proc/self/maps')

  maps.each do |map|
    from, to, perms, offset = map.scan(/(\h+)-(\h+) (\S+) (\h+)/)[0]

    if perms['rw']
      from, to = [from, to].map { |addr| addr.hex + offset.hex }
      data = mem.tap { |m| m.seek from }.read(to - from) rescue next

0x0dea

class Fixnum
  def call prog
    return unless self == 4
    unless prog = prog.delete(' ')[/\A3\.(\d*)4\z/, 1]
      raise SyntaxError, "Program must begin '3.' and end '4'.", caller
    end

    arity = [3, 3, 3, 3, 0, 1, 2, 1, 1, 0]
    cells = [i = pc = 0] * 100
    insns, loops, stack = [], {}, []

0x0dea

#!/usr/bin/env ruby

class HSPAL
  # Enforce unsigned 16-bit data by clamping all entries.
  class Stack < Array
    def << val
      super [0, val, 0xFFFF].sort[1]
    end
  end