プログラム

Perlでガウス記号

sukarabe 2008年12月19日 (金) コメントはまだありません

やってみると、Perlの数学関係はまったく充実していないことが判明 😳 。やっぱり PARI/GP のように数学に特化したものにする方が良いかも。そうは言っても、所詮は四則演算だけで済むので、必要な関数を自前で作ることにした。

まず整除ができない。13を5で割ると商が2で余りが3という計算。余りならば % という剰余演算子があり、13%5=3 となるらしいが、負の数に対しては Perl の実装によって結果が変わる可能性があると書いてあった。何と言語仕様で決めてないのかあ。まあ、文字列がメインターゲットってことですよね、やっぱり。

整数部分を与える関数 int(x) というのはあるが、xがマイナスのときはガウス記号とは違って int(-3.2)=-3 のようになるらしい。ああ、これも使い物にならない。

そこで、整数部分(ガウス記号)を与える関数を準備。ついでなので、切り捨て(ガウス記号)と切り上げの両方を作ってみよう。日本ではあまり普及してない呼び名だが、floor (フロアー、床)、ceiling (シーリング、天井)と言われるもの。動作は次のようになる。

　floor(3.14)=3、floor(3)=3、floor(-3.14)=-4

　ceiling(3.14)=4、ceiling(3)=3、ceiling(-3.14)=-3

効率は考えずに、とりあえず動くことだけを考えて作成。

# floor function
# &floor(3.14)=3, &floor(3)=3, &floor(-3.14)=-4
sub floor {
  my $x=$_[0];
  my $n=int($x);
  if ( $x==$n ) {
     $n;
  } elsif ( $x>0 ) {
     $n;
  } else {
     $x= -$x;
     $n=int($x);
     $n+=1;
     -$n;
  }
}

# ceiling function
# &ceiling(3.14)=4, &ceiling(3)=3, &ceiling(-3.14)=-3
sub ceiling {
  my $x=$_[0];
  my $n=int($x);
  if ( $x==$n ) {
    $n;
  } elsif ( $x > 0 ) {
    $n+=1;
    $n;
  } else {
    $x = -$x;
    $n = int($x);
    -$n;
  }
}

Perlで構造体

sukarabe 2008年12月18日 (木) コメントはまだありません

Perlの言語仕様にはやはり構造体は含まれていないようだ。しかし、追加モジュールというのがいろいろとあり、そこで実現されている。構造体を定義したければ、Class::Struct というモジュールを取り込む必要があるらしい。次のページはCに馴染みがある者に、てっとり早くPerlの要点を教えてくれて便利。

C言語を知る人へのPerl の基礎知識

C言語の

struct quadratic_form {
  int  left;
  int  center;
  int  right;
};
quadratic_form  some_qf;
some_qf.center = -3;

に対応させるには、次のように書けば良いのかな？

use Class::Struct

struct quadratic_form => {
    left   => '$',
    center => '$',
    right  => '$'
};
 
my $some_qf = new quadratic_form();
$some_qf->center(-3);

初めてのPerl

sukarabe 2008年12月17日 (水) コメントはまだありません

初めてのPerl

ランダル・L. シュワルツ,トム フェニックス

Amazonランキング：34323位
Amazonおすすめ度：

Amazonで詳細を見る
Booklogでレビューを見る by Booklog

2次形式の変換作業を計算機にさせようと Perlの入門書を本棚から引っ張り出してきた。良く知っている PASCAL とか C で書いてもいいのだが、まあ、所詮は整数の四則演算だから言語はどれでも大差ないから、復習も兼ねて。というか、以前、TeXの数式部分を画像に変換するプログラムを書いてから大分経つので、すっかり忘れてしまって、全くの初心者に戻っているのだけど(苦笑)。

Perl特有の習慣に未だ馴染めない所もあるが、まずまず理解しやすい本。実際に動作するサンプル・プログラムが付いているともっと良いと思うが。差し当たって、2次形式のデータ型を定義するにはどうするかとあちこち見るのだが、構造体ってのはないんですかね。

パスカルのレコード型、Cの構造体に対応するものが見つからないが、ハッシュで表現しろということなのだろうか。2次形式
\[ f(x,y)=ax^2+bxy+cy^2 \]
を (a,b,c) と略記して、これを一つのデータ型にしたいのであるが・・・。

パスカルなら、例えば、

type 
  quadratic_form = record
    left : integer;
    middle : integer;
    right : integer;
  end;

C は、えっと・・・うろ覚えだが、

struct quadratic_form {
  int  left;
  int  middle;
  int  right
};

みたいに定義すれば、quadratic_form 型というのが定義できる。

これをハッシュでやるとどうなるのかな？ 個別の2次形式、例えば some_quadratic_form=(2,3,4) を表すには

%some_quadratic_form = (
  "left" => 2, 
  "middle" => 3,
  "right" => 4
);

などとするのだろうが、こういうものを包括的に一つの型として登録することはできないのだろうか。それとも、そういうことはしないという風土なのか。なんでもそうだけど、初心者はこんな簡単そうなところで悩むからつらいよねえ。