[過去ﾛｸﾞ] プログラミングのお題スレ Part14 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

807(9): 2019/07/14(日)08:46 ID:7ouziBbN(1) AAS
お題
ミニミニなパスカルの三角形を表示する

1
11
121
1331
14641

---

809: 2019/07/14(日)10:31 ID:I+Q1ZQVX(1/2) AAS
>>807 Ruby

pascal = -> n {n > 0 ? [0, *pascal(n-1), 0].each_cons(2).map(&:sum) : [1]}

(0..9).map{|i| puts pascal[i].join(?\ )} # =>
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
1 6 15 20 15 6 1
省3

---

811: 2019/07/14(日)22:14 ID:xwqPe1DN(1/2) AAS
>>807 Perl5

for (1..5) {
　@a = (1, map{$a[$_] + $a[$_+1]} 0..$#a);
　print @a,"\n";
}

実行結果
$ perl 14_807.pl
1
11
121
省2

---

812: 2019/07/14(日)22:28 ID:niuQOGKU(1/2) AAS
>>807 python3
#!/usr/bin/python3
fractal_width = 19

xs = [1]
for i in range(1, fractal_width +1):
　　for x in xs:
　　　　print(x, "", end="") #xs sequence
　　print("")

　　xs.insert(0, 0)
　　xs.append(0)
省1

---

814: 2019/07/14(日)23:26 ID:xwqPe1DN(2/2) AAS
>>807 Perl5, 無名関数のtail recursion版

use feature qw'say current_sub';
sub {
　say @_;
　__SUB__->(1, (map{$_[$_-1] + $_[$_]} 1..$#_), 1) if 5 > @_;
}->(1);

実行結果
$ perl 14_807.pl
1
11
省4

---

815: 2019/07/14(日)23:34 ID:K5rloPX/(1) AAS
>>807 Squeak Smalltalk

| pascal grow |
pascal := OrderedCollection with: #(1).
grow := [pascal add: {1}, (pascal last overlappingPairsCollect: #+), {1}].
7 timesRepeat: grow.
(pascal collect: [:each | each joinSeparatedBy: ' ']) asStringWithCr

"=>'1
1 1
1 2 1
1 3 3 1
省4

---

816: 2019/07/15(月)00:44 ID:ZsG0DnWy(1) AAS
>>807
Java
外部ﾘﾝｸ:paiza.io

---

821: 2019/07/16(火)02:32 ID:awioItM7(1) AAS
>>807
Kotlin
外部ﾘﾝｸ:paiza.io
うっかり普通にフォーマットして3角に出るようにしてしまった。もっと簡単に出しても良かったんだな。

---

822: 2019/07/17(水)18:49 ID:rBzTe21k(1) AAS
>>807 R
cat(11^(0:4),sep="\n")

---

823: 2019/07/17(水)19:12 ID:O6R1hJD8(1) AAS
>>807 Pharo Smalltalk

(11 ** (0 to: 4)) rounded asStringWithCr

"=> '1
11
121
1331
14641' "

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ ｱﾎﾞﾝOFF

---

ぬこの手 ぬこTOP 0.255s*