enshiromashiro

#!/bin/sh
#|-*- mode:lisp -*-|#
#| generate my site
exec ros -Q -- $0 "$@"
|#
(progn ;;init forms
  (ros:ensure-asdf)
  (ql:quickload '(:cl-arrows :cl-ppcre :djula :rosa) :silent t))

(defpackage :ros.script.sitegen.3703245828

enshiromashiro

‪(let ((hunter (make-kemoshota :hunter))‬
‪      (shaman (make-kemoshota :shaman)))‬
‪  (when (upset-p hunter-boy)‬
‪    (with-herb (herb)‬
‪      (shake shaman h)‬
‪      (feed shaman :to :hunter :type :mouth-to-mouth)‬
‪      (with-trans ((s shaman)‬
‪                   (h hunter))‬
‪         (make-love s h))))‬)

enshiromashiro

grey@timberwolf:~/text/raven-eyes$ cat raven-eyes.txt | wc -m
55068
grey@timberwolf:~/text/raven-eyes$ cat raven-eyes.txt | sed -re 's/(ように|ような|みたい)/\1\n/g' | egrep 'ように|ような|みたい' | wc -l
188

grey@timberwolf:~/text/raven-eyes$ cat naked-shadow.txt | sed -re 's/(ように|ような|みたい)/\1\n/g' | egrep 'ように|ような|みたい' | wc -l
14
grey@timberwolf:~/text/raven-eyes$ cat naked-shadow.txt | wc -m
4617

enshiromashiro

#!/usr/bin/python
import sys

args = sys.argv
if len(args) < 2:
    print "usage: count.py [file] [word]"
    quit()

count = 0
for line in open(args[1], 'r'):

enshiromashiro

ClojureとJavaで、しましまの描画速度を比べてみるのこと

Clojure で書いてたら1回ラスタを書き換えるのにすごく時間がかかってたから、ちょっとしらべてみた。

コード

それぞれClojureとJava。 やってることは大して違いがなくて、BufferedImageのRasterにがーっとsetPixelで書き込むだけ。

結果

enshiromashiro

(ns stagbeetle.core
  (:gen-class)
  (:use [seesaw.core]
        [seesaw.graphics]))

(import (java.awt.image BufferedImage
                        WritableRaster)
        (java.awt Color))

enshiromashiro

import java.awt.Canvas;
import java.awt.Color;
import java.awt.Dimension;
import java.awt.Graphics;
import java.awt.image.BufferedImage;
import java.awt.image.WritableRaster;

import javax.swing.JFrame;
import javax.swing.JPanel;