Entries from 2012-04-01 to 1 month

Clojureでスクレイピングしてみる - 並列ver.

前回の並列化ver.が思いの外簡単にできたので。 参加者の一覧を取得した後、並列でtwitterのURLを取得する(parallel-get-twitter-url*1の部分)ように変更。 他はprintlnの場所を変えただけ。 (ns hoge.core (:use [net.cgrand.enlive-html])) (import 'java.…

Clojureでスクレイピングしてみる

Clojureの勉強会に参加するので、勉強がてら参加者のtwitterのURL一覧を取得するスクリプトを書いてみた。 ([@2012/4/20 14:40] lein run のようにシェルから実行出来るように書き換えました) まず、Leiningenでプロジェクトを作成する。 lein new hoge cd h…

Delphiでグリッドに列を挿入する

環境はDelphi 6。 グリッドはとりあえずTStringGridを使う。 プログラム中でグリッドに列を挿入したいとき、 procedure InsertCol(G: TStringGrid; c: Integer); var i, j: Integer; begin G.ColCount := G.ColCount + 1; for i := G.ColCount - 1 downto c …

sxpathが分かりにくかった

sxpathが分かりにくかったのでメモ。 使い方 まず、sxpathは関数を返す gosh> (sxpath '()) #<closure (sxpath loop)> ので使うときはこんな感じになる。(以下でshtmlはSHTMLデータとする) (use sxml.sxpath) ((sxpath '(html head title)) shtml) クエリ 上で'(html head title)と</closure>…

継続を理解するために見たページ達

メモ的に列挙。ありがとうございます。 継続の概念 → http://practical-scheme.net/docs/cont-j.html 継続渡し形式 → http://practical-scheme.net/docs/cont-j.html、http://practical-scheme.net/wiliki/wiliki.cgi?Scheme%3A%E4%BD%BF%E3%81%84%E3%81%9F%…

Project EulerをSchemeで(21-25)

今回は問21から問25の5問。処理系はGauche。 そういえば25問解いたのは全体の18%しか居ないらしい… まずはユーティリティ関数とか。factorizeは前に定義したのとちょっと変えてたり。 (use srfi-1) ;; Sieve of Eratosthenes ; (primes 10) => (2 3 5 7) (de…

Gaucheでtraceするまで

window.twttr = (function(d, s, id) { var js, fjs = d.getElementsByTagName(s)[0], t = window.twttr || {}; if (d.getElementById(id)) return t; js = d.createElement(s); js.id = id; js.src = "https://platform.twitter.com/widgets.js"; fjs.paren…