ちょっと必要になったので。 http://cran.r-project.org/src/contrib/Descriptions/CGIwithR.html のhexDecode()関数を参考に作りました。 hexDecode <- function(string){ string <- gsub("\\+", " ", string) string <- gsub("%09", "\t", string) string <- gsub("%0D%0A", "\n", string) string <- gsub("%0D|%0A", "\n", string) pieces <- strsplit(string, "%")[[1]] dehex <- function(string){ hex <- substr(string, 1, 2) paste(rawToChar(as.raw(

vimscriptを使ってfizzbuzzをやってみました。 情けないコードを晒すのはすごくの恥ずかしいですが、取り組んだ事は公開していきたいと思います。 リファクタリングや指摘など大歓迎なので、ちょっとでも気になった事は突っ込んでいただけるとうれしいです。 FizzBuzz問題のルール【はてなキーワードから引用】 1 から順に数を数えていく。但し、その数が 3 で割り切れるならば数字の代わりに Fizz と、5 で割り切れるなら Buzz と言うゲーム。3 でも 5 でも割り切れる場合は、FizzBuzz の順に言う。 作ったコード １．ifとwhileだけ版 function! FizzBuzz() let i_cnt = 1 while i_cnt <= 50 if i_cnt % 3 == 0 if i_cnt % 5 == 0 echo "fizzbuzz" else echo

追記； 以下のインタプリターはあまりに素朴すぎることに気づいた。静的に決まる情報をぜんぜん利用できていないのだ。 さらに悪いことに、インタプリターがすべき仕事とそれ以外ですべき仕事が明確に分かれていない。 いろいろな人のコードを見たつもりだったが何も見えていなかった。Brainf*uck Compiler-Interpreter に続く。 どう書く？org の問題より。 お題は Brainf*ck (bf) コンパイラーを作るというもの。 bf は名前は何だが、シンプルなプログラミング言語で、言語処理系の入門には良い（かもしれない）。 とっくに美しい Common Lisp の回答が出ているが、 (http://ja.doukaku.org/comment/3956/) 勉強としてまずインタプリターを書いてみる。インタプリターは面白くて、 ANSI Common Lisp などの Lisp

2007年11月11日10:30 カテゴリLightweight Languages どう書く?orgのperl全コンプ した。 どう書く？org どう書く？org 言語の一覧 どう書く？org 言語の詳細: Perl こんな一文にもならんことして我ながら何だと思うが、気になるものは気になるので。 お気に入りの反則: a2pに吐かせた回答。 苦労した奴: PageRank - PDLが使えなくて頭をかかえたが、Inline::Octaveを見つけた。 これで安眠できる--か? 少なくともこれで他の言語にとりかかる余裕が出来た(a2pやInline::Octaveはどうカウントするのやら)。 Dan the Perl Monger 「Lightweight Languages」カテゴリの最新記事

どう書くorgについてオフィシャルに言及するのは初めてなのですが、アルファ版の時点ではてなブックマークのホットエントリーになったり、 オレンジニュースや やじうまWatchで言及していただいたりしたのですでにご存じの方もいらっしゃるかもしれません。 西尾泰和のブログ @ Cybozu Labs: 「どう書く？org」(ベータ版)を公開しました LL Spirit での発表はオフィシャルじゃないんですか!? という突っ込みはおいておいて、いくつか微妙な点があるなぁと感じてしまいます。 プログラミング言語間の対訳があれば、殻を破ってマルチリンガルの大空に羽ばたくことができるのに。 西尾泰和のブログ @ Cybozu Labs: 「どう書く？org」(ベータ版)を公開しました それなら、お題として C か何かで書かれたものを他言語でできるだけ崩すことなく模写せよというもので十分だと思います。つま

http://ja.doukaku.org/ 「マルチリンガル志向」「お題にチャレンジ」「再利用可能なライセンス」を三本柱に、マルチリンガル・クックブックを目指す、とのこと。すばらしい！ 以下に成立の経緯が。 言語Xを使っている人が新たに言語Yを使うときになにが障害になるか、というと、やはり「言語Xでならどうやるか0.1秒で思いつくような簡単な内容を、言語Yではドキュメントをひっかきまわして探さないといけない」というフラストレーションなわけです。そのフラストレーションを避ける気持ちが、プログラマを「自分が一番慣れている言語」という檻に閉じこめるのです。プログラミング言語間の対訳があれば、殻を破ってマルチリンガルの大空に羽ばたくことができるのに。 西尾泰和のブログ @ Cybozu Labs: 「どう書く？org」(ベータ版)を公開しました るびこさんの以下の記事もきっかけになったとのこと。

隣り合う二項の差 どう書く？org整数のリストがxsが与えられたときに、隣り合う2要素の差のリストを作る関数diffを作ってください。 いろいろ試して、結局投稿しなかった残骸を置いておきます。 普通に書いたもの sub diff { my @a; push (@a, $_[ $_ + 1 ] - $_[$_]) for 0 .. $#_ - 1; @a; } pairwise を使いたくて書いてみたもの use List::MoreUtils qw/pairwise/; sub diff { my @a = @_[ 1 .. $#_ ]; my @b = @_[ 0 .. $#_ - 1 ]; return pairwise { $a - $b } @a, @b; } 関数内で再帰 sub diff { my $a = shift or return; sub diff_rec { my

どう書く？org の問題「どう書く？org」にチャレンジしたんだけど、キー入力の捕捉の仕方が分からなくて挫折した。 投稿されたプログラムを見てみると、Ruby は mamamoto さんという人が先に投稿していた。このプログラムが（自分にとっては）いろいろと勉強になったのでメモさせてもらう。Curses とかぜんぜん知らなかったし、存在を知れたとしてもリファレンスだけじゃうまく使えなかったかもしれない。 require 'curses' def inputChecker(n, str) Curses.addstr("input(#{str}) => ") Curses.refresh input = "" timeout = false until (c = Curses.getch.chr) == "\n" timer ||= Thread.new{ sleep(n); timeout

どう書く? org http://ja.doukaku.org/ feed を投げたら獰猛な魚が食いついてくるようなサイトはないか、 みたいな雑談で、さる人に教えていただきました。 とんがった、、というか一時代前のサイトデザインと、 RSSのオレンジ色が同居しているミスマッチがまず素敵です。 音声合成でHello World!やれ、というプログラミングの「お題」 にちょっと驚くも、それにたった１行で回答してたり、というのに もっと驚きました。 ライブラリを知っているかどうかの、かつてのTVのクイズ番組の雰囲気？ いや、ちょっと違うなぁ、もう少しヒネリがあるから、、そうだ！　連想ゲームみたいだ。でも、あの番組の正解は恣意的に決まっているところがあるのに対して、こちらはプログラミングだから、ちゃんと動くかで「厳正に」回答が決まるところがナイスかも。 一定の達人層、マニア層のプライドをくすぐりつ