kkosuge

use strict;
use warnings;

use Config::Pit;
use Net::Twitter::Lite;
use DateTime;
use Encode;
use utf8;

my $now = DateTime->now;

kkosuge

// ==UserScript==
// @name           A smart dashboard have my id
// @namespace      http://mitukiii.jp/
// @description    TumblrのDashboardで自分からReblogされた/自分のidを含んだpostを折り畳むスクリプト
// @include        http://www.tumblr.com/dashboard*
// @author         mitukiii
// @compatibility  Firefox 5.0(Scriptish 0.1), Chrome 12.0.742.112, Opera 11.50
// @charset        UTF-8
// @version        0.0.2.20110707180600
// ==/UserScript==

kkosuge

path = ARGV.shift
if File.exists?(path) && path.match(/^(.+)\.(jpe?g|jp2)$/)
  filename = $1
  ext = $2
  files = []
  10.times do |i|
    10.times do |j|
      if i != j
        files << output = "#{filename}_ikemen_#{i}#{j}.#{ext}"
        `cat #{path} | sed s/#{i}/#{j}/g > #{output}` # gsed じゃなくて sed にした

kkosuge

今日のにっき

友達二人とイオンに行ってきたよー

• ル・シュクレのうさぎは今日もかわいい
  　
  　
• ごはん食べました
  

kkosuge

# coding: utf-8

class Cパンツ
  def initialize(好み = {})
    @色 = 好み[:色] || 0xFFFFFF
    @柄 = 好み[:柄] || :無地
  end

  def 何色？
    sprintf("%#x", @色)

kkosuge

slow 遅い
fast 速い

above より上に
below より下に

absolute 絶対的な
relative 相対的な

abstract 抽象的な

kkosuge

# 厨2病フレーズだけで記述できるプログラミング言語 のイメージ

何ッ ()
    
もしも それ が 真実 なの ならば———
    これ は 大変なことになるぞ！ （いや？）\
        まぁ…… いい…
    ククク…… 見せてもらおうじゃないか…… ←\
        旋律 の 傀儡師 の 実力とやらを！
        

kkosuge

use Regexp::Assemble;

my $ra = Regexp::Assemble->new;
$ra->add( '^9m[^0-9a-zA-Z]' );
$ra->add( '[^0-9a-zA-Z]9m$' );
$ra->add( '^9m$' );
$ra->add( '[^0-9a-zA-Z]9m[^0-9a-zA-Z]' );
print $ra->re; #(?-xism:(?:[^0-9a-zA-Z]9m(?:[^0-9a-zA-Z]|$)|^9m(?:[^0-9a-zA-Z]|$))

kkosuge

# coding: utf-8

class Cat
  def initialize
    @word = 'にゃんにゃん'
  end

  def nyan
    puts @word
  end

kkosuge

#Newbie programmer
def factorial(x):
    if x == 0:
        return 1
    else:
        return x * factorial(x - 1)
print factorial(6)


#First year programmer, studied Pascal