- プログラミングのお題スレ Part7 [転載禁止]©2ch.net
965 ：780[sage]：2015/10/03(土) 12:42:39.38 ID:PLl1Mwjm - >>953 Perl
use feature qw{:5.16};
say for sub {
@_ ? do{
my @r = __SUB__->(@_[0..$#_-1]);
say @_;
(join('', @_), @r)
} : () }->(1..9,a..f);
>>963
数学的ｱﾙｺﾞﾘｽﾞﾑではないけｋど、/とか%のﾏｼﾞｯｸ演算に依らずに、
再帰的構造をﾄﾗﾊﾞｰｽする形で作ってみた、まぁ遊びだね。
もうちょっとｺﾝﾊﾟｸﾄ＆ｴﾚｶﾞﾝﾄに書けたら良いだけれどもねｪ…
| - プログラミングのお題スレ Part7 [転載禁止]©2ch.net
967 ：780[sage]：2015/10/03(土) 13:01:08.17 ID:PLl1Mwjm - >>965 ごめんこれ間違っていた、下半分の三角形に求めれれているものとは違うものを出力させてた oｒｚ
$ perl 7_953.pl
1
12
123
1234
12345
123456
1234567
12345678
123456789
123456789a
123456789ab
123456789abc
123456789abcd
123456789abcde
123456789abcdef
123456789abcdef
123456789abcde
123456789abcd
123456789abc
123456789ab
123456789a
123456789
12345678
1234567
123456
12345
1234
123
12
1
|
|