Haskellは難しくない--こともある。 : 404 Blog Not Found
2006年06月20日18:20 カテゴリWEB+DB PRESSLightweight Languages Haskellは難しくない--こともある。 まだVol.33も正式発売されていないというのに、すでにVol.34の原稿書きにいそしむ今日この頃。実はその記事の一つがHaskellだ。「Powered by Ph.Dな言語の解説を中卒がやるのってどうよ?」と我ながら思うが、自分で言うのもなんだがむしろいい記事に仕上がってきているのを感じる。 Matzにっき(2006-06-13) 私:「Haskell難しいですから」 「ええっ？」 というわけで、予告ついでに、HaskellよりRubyの方がずっと難しいことを一つ上げさせていただく。 それは、なんといってもProcオブジェクトだ。 「Rubyの美しくない部分を一つあげよ」と聞いて、真っ先に思い立つのがこれだ。 例えば、logbXをカリ
perl - 100までの素数 : 404 Blog Not Found
2006年06月16日22:00 カテゴリLLの夏Lightweight Languages perl - 100までの素数 なに前哨戦とな? キミならどう書く 2.0 - ROUND 1 - ? Lightweight Language Ring お題は「100までの整数から素数を列挙せよ」です．まずはCPANから。Perlから、と言わないところがミソ。 perl -MMath::Prime::XS=primes -le '$,=" "; print primes(100)' primesをsieve_primesとするとさらに高速。$,の使い方にも注目。 次にabigailの傑作の変種。 perl -le '$,=" "; print grep { (1 x $_) !~ /^(11+)\1+$/ } (2..100)' なんでこれで素数判定できるかは、読者の宿題。 最後に、割とけれん
アドビ、次世代画像処理ソフト「Lightroom」のパブリックベータ最新版を提供開始
Adobe Systemsは、プロフォトグラファー向けの画像処理ソフト「Adobe Lightroom」のパブリックベータ版3.0をMacintosh向けに提供開始したことを発表した。2007年1月30日までダウンロードおよびフィードバックが可能となっている。 Lightroomは、「Library（アルバム）」「Develop（編集）」「Slideshow（スライドショー）」「Print（印刷）」「Web（ウェブ）」などのモジュールによって構成される写真画像の処理ソフト。Developモジュールでは編集前後の画像を比較できるようになり、サイズや解像度の調整がより厳密に行えるようになった。また、新たにウェブモジュールが搭載され、ウェブ用に編集し、HTMLやFlashでの出力結果をリアルタイムでプレビューできる。 このほか、出力時の解像度調整、カメラアングルの補正を行う傾き補正ツール、キーワ
subtechグループ - Buy OEM Software - MacSaber in Perl
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
404 Blog Not Found:perl - ('ぁ' .. 'ん') は動きません
2006年06月08日17:30 カテゴリLightweight Languages perl - ('ぁ' .. 'ん') は動きません PerlのRange Operator, ..は便利なものですが、限界もあります。 my @alpha_small = ('a' .. 'z'); は期待通りに動いても、 my @hiragana = ('ぁ' .. 'ん'); はそうはならないのです。 ただし、簡単な解決策もあります。 my @hiragana = map { chr } (ord('ぁ') .. ord('ん')); Perl 5.8.1 以降は tr/ぁ-ん/ァ-ン/も、qr/[α-ω]/も使えるのに、範囲演算子はそうでないというのはバグに見えないこともないですが、私自身はこれでもいいと思います。というのも範囲演算子の場合、$a .. $bという変数も受け入れなければならないから
[あとでくる]の作り方・使い方
作業ログを書くために大切な、たった一つのことの中で「プロジェクトの作業ディレクトリに移動するバッチファイル」の話を書きました。実はこのバッチファイル、hereという名前のスクリプトを使って自動生成しています。つまりhereというのは「「ここにあとで来る」ためのバッチファイルを作るスクリプト」なのですね。以下に公開します。Enjoy! # # here.pl # # Copyright (C) 2006 by Hiroshi Yuki. # # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. use strict; my $batch_dir = "c:/your/batch/file/dir/name"; unless
![[あとでくる]の作り方・使い方](https://cdn-ak-scissors.b.st-hatena.com/image/square/a4b2cdb881b87ce5f44ec1bb4d47606b22d28efa/backend=imagemagick;height=288;version=1;width=512/https%3A%2F%2Fogimage.blog.st-hatena.com%2F12704346814673864843%2F10257846132698948571%2F1546759416)
perl - qq(@{[ Interpolate->any->given('expression') ]}) : 404 Blog Not Found
2006年05月30日18:05 カテゴリLightweight Languages perl - qq(@{[ Interpolate->any->given('expression') ]}) ミッカッチャッタ:) spiritlooseのはてなダイアリー - 文字列中で式を実行 結果は print "@{[$foo->bar]}"; print "${\$foo->bar}"; こんな感じ。 ただ、このレヴェルのInterpolationは、Securityのことを考えると避けたいのが本当のところ。 たとえば、以下のscriptを考えてみる。 danger.cgi #!/usr/local/bin/perl use strict; use warnings; use CGI; $ENV{PATH} = '/bin:/usr/bin:/usr/local/bin'; my $q = C
楽天広場 Trackback Auto-Discovery : にぽたん研究所
迷惑トラックバック対策：トラックバック… こんにちは、楽天広場です。 迷惑トラックバック対策として、トラックバックURLの暗号化を行いました。 #!/usr/local/bin/perl use strict; use HTML::Entities; use HTML::TokeParser; use LWP::Simple; my $url = 'http://plaza.rakuten.co.jp/hirobastaff/diary/200605290000/'; print rakuten_hiroba_trackback_auto_discovery($url), "\n"; sub rakuten_hiroba_trackback_auto_discovery { my $url = shift; my $content = get($url) or die "can't fet
[を] Perl の HTML::Template の自分用サンプルプログラム
Perl の HTML::Template の自分用サンプルプログラム 2006-05-27-4 [Programming] HTML::Template のドキュメント(see "perldoc -t HTML::Template") の SYNOPSIS の自分用の補足。ドキュメント読むの面倒なとき用。 そのままコピペして動くようにしてある。 ■その１ #!/usr/bin/perl use strict; use warnings; use HTML::Template; my $title = "Hello, World!"; my $content; if (rand(2) < 1) { $content = "Hello, Mimitako!"; } my @list = ({key=>"One", num=>1}, {key=>"Sun", num=>3}, {ke
perl - use strict; # and be happy : 404 Blog Not Found
2006年05月21日05:20 カテゴリLightweight Languages perl - use strict; # and be happy どうやら私の本では、啓蒙が全然足りなかったらしい。 Perl/CGI辞典 - 土井 毅さん 著 - にて use strict が推奨されていない件について - iandeth. p.104 strict プラグマは、Perlスクリプトでの記法を厳密にするためのプラグマです。 (中略) これにより、宣言の曖昧な変数への参照を発見できます。 [参考] strict プラグマは厳密すぎるため、通常のプログラミングではあまり使用しません。 ... orz この本が20世紀に出たというのであれば驚かないけど、今年に出たというのは、Perl5 Porterとしてもショックである。 しかし、確かにuse strict; # or dieという姿勢だけ
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
JavaScript debugging tips (for Mustang context) - A. Sundararajan's Weblog
