「日本語が読めず、テストファーストが嫌いなプログラマ」記事へのコメント

テストファーストテスト

[Wildcat (2067)]

テストプログラムを作ろうと思ったが、しかしそれにバグがあったらまずいと思い、テストプログラムのテストプログラムを作ろうと思ったが、しかしそれにバグがあったらまずいと思い、テストプログラムのテストプログラムのテストプログラムを・・・

というループにハマったリはしないのだろうか?

--
(´д｀;)

Re:テストファーストテスト

[Anonymous Coward]

採用しても良い [vector.co.jp]

Re:テストファーストテスト

[Wildcat (2067)]

ありがとうございます。記念にプログラムにしましたのでご活用下さい。尚、このプログラムはシェアウェアです。1ヶ月以上継続して使用する場合には必ず足を洗って下さい。洗わずに使用を続けますと水虫になります。

#!/usr/bin/perl -w

use strict;

my $s = 'テストプログラムを作ろうと思ったが、しかしそれにバグがあったらまずいと思い、';

for (;;) {
    print $s;
    $s = "テストプログラムの$s";
}

--
(´д｀;)

Re:テストファーストテスト

[SteppingWind (2654)]

再帰を使った方が美しいと思うが, どうか!?

# スタックオーバフローは知らん!!

Re:テストファーストテスト

[G7 (3009)]

> # スタックオーバフローは知らん!!

Schemeとか使うと大丈夫らしいですね。
(数少ない(笑))言語仕様に、末尾再帰の最適化が義務付けられてるんで、
(数多い　(笑))実装のどれであっても、「まともな」Schemeであることを謳っているなら大丈夫なはず。(だよね?)

書き方は知りません。識者よろしく。

Re:テストファーストテスト

[Anonymous Coward]

とりあえず書いてみた。

#!/usr/bin/guile \
-e main -s
!#

(define (main-1 arg)
    (display arg)
    (main-1 (string-append "テストプログラムの" arg)))

(define (main args)
    (main-1 "テストプログラムを作ろうと思ったが、しかしそれにバグがあったらまずいと思い、"))

改良してみた (Re:テストファーストテスト)

[Anonymous Coward]

一応再帰を使っていて、スタックオーバーフローもしない。
# 実行効率は悪いかもしれないが……

--- ここから
#! /usr/local/bin/perl -w

use strict;

my $s;

if($#ARGV == -1){
    $s = "テストプログラムの";
}

$s .= 'テストプログラムを作ろうと思ったが、しかし

Re:改良してみた (Re:テストファーストテスト)

[Anonymous Coward]

>一応再帰を使っていて、スタックオーバーフローもしない。

これって美しいのか？

自分では書けないくせに難癖つけてすまん。

Re:改良してみた (Re:テストファーストテスト)

[Anonymous Coward]

# いちおう、作った本人です

これって美しいのか？

美しくはないと思います。

• 再帰を使うこと
• スタックオーバーフローしないこと

という条件で、オリジナルのスクリプトに手を加えたらこうなったというわけで……