hakobe

// 1回生向け課題のめも

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <errno.h>

const int DEFAULT_RECORDS_LIST_SIZE = 16;

hakobe

// ==UserScript==
// @name           imouto_kabu
// @namespace      jp.hakobe.gm
// @include        *
// ==/UserScript==

document.body.innerHTML = document.body.innerHTML.replace(/株/g, '妹'); // 無茶しすぎ

hakobe

/*
 * Tree Style Tab with Fx3 new theme for a right-side tab bar
 *
 * Tree Style Tab with Fx3 new theme
 * http://userstyles.org/styles/4677
 *
 * Apply Mac OS style to Tree Style Tab
 * https://addons.mozilla.org/firefox/addon/5890
 */

hakobe

my ($address) = Email::Address->parse(q!"DMNG" <dummy@mac.com>!);
p $address->user; # dummy
p $address->host; # host

hakobe

require 'test/unit'

module Test::Unit::Assertions
  def assert_or(*asserts)
    asserts.each do |a|
      a[] rescue next
      return
    end
    raise Test::Unit::AssertionFailedError

hakobe

function f(n) {
  setTimeout(function () { alert(n + ' in f') }, 0);
  return n;
}

function g() {
  alert(f('1'));
  alert('2');
  alert('3');
}

hakobe

class Stone
  @@STONE_COLORS = [:white, :black]

  def initialize(heads_color)
    raise "Invalid type" unless @@STONE_COLORS.include?(heads_color)
    @heads = heads_color
  end
  attr_reader :heads # 表の色

hakobe

use strict;
use warnings;

package Puu;
use base qw( Class::Accessor::Lvalue::Fast);
__PACKAGE__->mk_accessors(qw(nyo nyu));

package main;
use Data::Dumper;
use Perl6::Say;

hakobe

hi Pmenu ctermbg=8
hi PmenuSel ctermbg=12
hi PmenuSbar ctermbg=0

hakobe

#include <stdio.h>
#include <stdlib.h>
#include <ctype.h>

#define MAX_INPUT_SIZE 1024

#define TK_NOTHING      0
#define TK_NUM          1
#define TK_OP_PLUS     10
#define TK_OP_MINUS    11