プログラミングのお題スレ Part13

**デフォルトの名無しさん** · 2019/02/03(日) 11:21:53.20

プログラミングのお題スレです。

【出題と回答例】
1 名前：デフォルトの名無しさん
　　お題：お題本文

2 名前：デフォルトの名無しさん
　　>>1 使用言語
　　回答本文
　　結果がある場合はそれも

【ソースコードが長くなったら】 (オンラインでコードを実行できる)
https://ideone.com/
http://codepad.org/
http://compileonline.com/
http://rextester.com/runcode
https://runnable.com/
https://code.hackerearth.com/
http://melpon.org/wandbox
https://paiza.io/

宿題は宿題スレがあるのでそちらへ。

※前スレ
https://mevius.2ch.net/test/read.cgi/tech/1538096947/

**デフォルトの名無しさん** · 2019/02/17(日) 09:09:13.01

>>248
網羅的は、きりがなく一つの予想をたてた。
一つ半径を求めたら、次のような操作で半径を縮めたものと、真の最小半径が一致する予想。

半径rの整数点がNだとして。　rを整数比で縮小して中心をずらす。

たとえば上の例だと、r=1で、r →　2/4 r で、
(2x -1)^2 + (2y -1)^2 = 2r
両辺4倍して中心ずらした式

**デフォルトの名無しさん** · 2019/02/17(日) 14:03:58.61

整数比かけるので有理数半径ならすべて作り出せるから当たり前か
無駄なく高速に半径縮められる手法が大事か

**デフォルトの名無しさん** · 2019/02/17(日) 14:06:36.33

あと半径は間違いで、半径でなく右辺、半径^2　だった

**デフォルトの名無しさん** · 2019/02/17(日) 19:56:30.00

お題
パンケーキソートを実装する

**デフォルトの名無しさん** · 2019/02/18(月) 22:45:57.31

>>252 Perl5 (効率の良いｱﾙｺﾞﾘｽﾞﾑではないけれど、まずは…)

use List::Util shuffle;

@a = shuffle 1..20;
print "shuffled) @a\n";

sub flip {
($m, $n) = @_;
@a[0..$m] = reverse @a[0..$m];
@a[0..$n] = reverse @a[0..$n];
}

for $i (reverse 1..$#a) {
　$k = undef;
　for (0..$i) {
　　$k = $_ if (!defined($k) or $a[$k] < $a[$_])
　}
　flip($k, $i) if $k < $i;
}

print "sorted　) @a\n";

実行例
~ $ perl 13_252_clumsy_pancake_sort.pl
shuffled) 18 6 2 13 16 1 12 15 10 4 17 20 9 7 19 14 5 11 3 8
sorted ) 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

**デフォルトの名無しさん** · 2019/02/19(火) 22:19:54.18

; Common Lisp

(defun flip (seq n)
　(concatenate (type-of seq) (nreverse (subseq seq 0 (1+ n))) (subseq seq (1+ n))))

(defun pancake-sort (seq predicate)
　(loop for s = seq
　　　then (if j (flip (flip (flip (flip s (1- j)) (1- i)) i) j) s)
　　　for i from 1 to (1- (length seq))
　　　for j = (position (elt s i) s :end i :test predicate)
　　　finally (return s)))

**デフォルトの名無しさん** · 2019/02/19(火) 22:25:14.24

お題:1から8までのカードを混ぜ、2枚そこから引いた時1枚目*10+2枚目が素数になる確率を求める。
ただし、
1. 小数第3位で四捨五入した後に回答すること。
2. 数学的な証明は禁止。
3. 各カードは9-その数字の数だけ存在する。 (例:1ならば8枚存在する)
4. 各カードが出る確率はまだ引かれていないカードの枚数に比例する。

**デフォルトの名無しさん** · 2019/02/20(水) 00:45:46.98

python
print(0.31)

**デフォルトの名無しさん** · 2019/02/20(水) 00:55:56.83

>>255 Perl5
$R = 0.0;
@s = map{($_) x (9-$_)} 1..8; #say "@s";
$t = @s; #say $t;
for (qw{11 13 17 23 31 37 41 43 47 53 61 67 71 73 83}) {
　@o = split'';
　my %h;
　$h{$_}++ for @s;
　my $r = $h{$o[0]}-- / $t;
　$r *= $h{$o[1]}-- / ($t - 1);
　$R += $r;
}
printf "%3.2f\n", $R;

実行結果
~ $ perl 13_255.pl
0.31

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/02/20(水) 00:58:27.33

お題: URLで場所を指定された、インターネット上のテキストファイルをダウンロードするプログラム。

**デフォルトの名無しさん** · 2019/02/20(水) 01:16:40.92

>>258 Perl5
require LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->agent('Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.2; Win64; x64; Trident/6.0)');
use HTTP::Cookies;
$ua->cookie_jar(HTTP::Cookies->new(file => 'lwp-cookies.txt', autosave => 1));
$url = 'http://ftp.iij.ad.jp/pub/linux/centos/7.6.1810/isos/x86_64/0_README.txt';
$file = './0_README.txt';
$res = $ua->mirror($url, $file);
print $res->status_line, "\n";

実行例
~ $ perl 13_258.pl
200 OK

（※こういうのは、別に今急に考えたわけじゃなく、日常的に作って使っているのですぐ投稿できました）

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/02/20(水) 01:37:18.13

WSHでダウンロードできるヤツ、おる？

**デフォルトの名無しさん** · 2019/02/20(水) 01:40:03.52

>>260
wget.exe か curl 使えば？

**デフォルトの名無しさん** · 2019/02/20(水) 02:05:29.76

>>260 download.js
var xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
xmlhttp.Open("GET", "http://ftp.iij.ad.jp/pub/linux/centos/7.6.1810/isos/x86_64/0_README.txt";, false);
xmlhttp.Send();
var stream = new ActiveXObject("Adodb.Stream");
stream.Type = 1;
stream.Open();
stream.Write(xmlhttp.responseBody);
stream.SaveToFile("0_README.txt", 2);

**デフォルトの名無しさん** · 2019/02/20(水) 02:28:54.15

pythonista stash 反則？

$ wget http://ftp.iij.ad.jp/pub/linux/centos/7.6.1810/isos/x86_64/0_README.txt

$ ls -la *.txt
0_README.txt (2.4K) 2019-02-20 02:21:45

**デフォルトの名無しさん** · 2019/02/20(水) 02:51:47.69

>>255
;; Common Lisp

(let ((prime (list 2)))
　(defun primep (n)
　　(loop for i from (1+ (car prime)) upto n
　　　　　 unless (find-if (lambda (j) (zerop (mod i j))) prime :from-end t)
　　　　　 do (push i prime))
　　(find n prime)))

(defun nearest (i j)
　(/ (floor (+ (* i (expt 10 j)) 0.5)) (expt 10 j)))

(loop with cards = (loop for i from 1 to 8 nconc (make-list (- 9 i) :initial-element i))
　　　 and n = 0 and p = 0
　　　 for one in cards
　　　 do (loop for two in (remove one cards :count 1)
　　　　　　　　do (incf n)
　　　　　　　　if (primep (+ (* 10 one) two)) do (incf p))
　　　 finally (format t "~,3F~%" (nearest (* (/ p n)) 3)))

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/02/20(水) 03:32:48.09

わーい、これでダウンロード制限された端末でDLできるぞ。やったー！

**デフォルトの名無しさん** · 2019/02/20(水) 03:35:30.81

お題スレってそういう趣旨の場所だっけか？

**デフォルトの名無しさん** · 2019/02/20(水) 03:43:59.14

>>265
できるかなあ？どういう制限しているかにもよるぞ。

**デフォルトの名無しさん** · 2019/02/20(水) 05:32:07.81

PowerShell にも、curl, wget ある

get-alias (gal)

curl -> Invoke-WebRequest
wget -> Invoke-WebRequest

と言うことは、Ruby からも、そのコマンドを呼べる

**268** · 2019/02/20(水) 09:30:07.43

なんと、コマンドプロンプトで、
where curl と入力すると、
C:\Windows\System32\curl.exe

PowerShell の、curl, wget は、Invoke-WebRequest のエイリアスだけど、
curl.exe は、本物のcurl ！

**デフォルトの名無しさん** · 2019/02/20(水) 09:49:14.61

>>268>>269
死ね

**デフォルトの名無しさん** · 2019/02/20(水) 09:52:59.12

>>258 >>265 なんだ下心があったのか。

pythonista stash は以下のコマンドが使える。

help(StaSh) v0.7.1
alias, cat, cd, clear, cowsay, cp, crypt, curl, cut, dropbox_setup, du, easy_config, echo, edit, exit, fg, find, ftpserver, gci, gh, git, grep, head, httpserver,
jobs, kill, latte, ls, mail, man, mc, md5sum, mkdir, monkeylord, more, mount, mv, openin, pbcopy,
pbpaste, ping, Usage, pip, printenv, printhex, ptinstaller, pwd, py-tree, python, python3, quicklook, rm, rmdir, scp, selfupdate, sha1sum, sha256sum,
sort, source, sqlite, ssh, ssh-keygen, stashconf, tail, tar, telnet, totd, touch, umount, uniq, unzip, version,
wc, webviewer, wget, whatis, which, wol, xargs, zip

ftpserver や、httpserverは簡易的なサーバーになる。
ssh やscp 、tar zip などは使い道多そう。
webviewer てpython の下でブラウザが立ち上がってるみたいなんだがどんな使い道があるんだろう？

なお、標準python用のシェルは、xonsh と言うのがあるらしい。 xonsh では、標準的なshellコマンドと並行してpython スクリプトも実行できるから強力。
stash ではそれはできない。

**268** · 2019/02/20(水) 10:31:11.68

WSH はわからないけど、Ruby では、

require 'nokogiri'

html = `ｃｕｒｌ http://www.example.com/`
# ｃｕｒｌは書き込めないので、全角に変換した

doc = Nokogiri::HTML( html )

elements = doc.css( "h1" )
puts elements.first.content #=> Example Domain

**デフォルトの名無しさん** · 2019/02/20(水) 11:50:14.05

>>272
死ね

**デフォルトの名無しさん** · 2019/02/20(水) 13:03:16.05

>>269
なんかね。UNIX系OSで昔からよく使われてたコマンドを移植したようで、tarとか他にも色々あったと思った。

**デフォルトの名無しさん** · 2019/02/20(水) 17:40:48.68

>>263 今度は反則なしで。python

import requests as r

url = 'http://ftp.iij.ad.jp/pub/linux/centos/7.6.1810/isos/x86_64/0_README.txt'
g= r.get( url )

print('読んだサイズは',len(g.text) )

# 読んだサイズは 2495

**デフォルトの名無しさん** · 2019/02/20(水) 17:58:34.75

>>258
Pharo 7
'http://ftp.iij.ad.jp/pub/linux/centos/7.6.1810/isos/x86_64/0_README.txt' asUrl retrieveContents

**デフォルトの名無しさん** · 2019/02/20(水) 18:10:48.97

>>276 ありがとう。そんな言語も出てきてたんだ。でも普及は難しいのかも。

**デフォルトの名無しさん** · 2019/02/20(水) 23:51:29.53

>>230 pike
https://ideone.com/VZzxoA

**デフォルトの名無しさん** · 2019/02/21(木) 18:54:22.61

お題：リスト等を", "で結合して表示せよ。ただし最後は" and "で結合する。
https://ideone.com/pVuO7T

**デフォルトの名無しさん** · 2019/02/21(木) 19:06:17.90

>>279 JavaScript
const arr = ['apple', 'banana', 'orange', 'mango'];
const last = ' and ' + arr.pop();
console.log(arr.join`, ` + last);
//=> apple, banana, orange and mango

**デフォルトの名無しさん** · 2019/02/21(木) 19:17:09.75

>>279 python

l = [ 1,2,3,4,5]

print( *l[0:-1] ,'and' , l[-1])

# 1 2 3 4 and 5

**デフォルトの名無しさん** · 2019/02/21(木) 19:27:21.23

>>279
Haskell

main = putStrLn.concat.concat $ [map addCanma (init lst),["and,"],[last lst]]

addCanma s = s ++ ","

lst = ["apple","banana","orange","mango"]

output:
apple,banana,orange,and,mango

**デフォルトの名無しさん** · 2019/02/21(木) 19:31:58.30

題意は
list = ["red","green","black","white"]
print(", ".join(list[:-1]),"and",list[-1])
# red, green, black and white
だろ

**デフォルトの名無しさん** · 2019/02/21(木) 19:43:56.00

そこそこ優秀なのに肝心なところでいい加減だから試験に落ちるタイプだな

**デフォルトの名無しさん** · 2019/02/21(木) 19:51:21.05

>>283
あ、そうか。
不恰好だけどこれで一応対応。

(putStrLn.concat.concat) [init $ map addCanma $ init lst,[last $ init lst],[" and "],[last lst]]

スマートな解答も考えてみるよ。

**デフォルトの名無しさん** · 2019/02/21(木) 20:16:12.26

>>283 ごめん、俺もカンマが抜けてた。
数字の場合の模範解答をよろしく。

**デフォルトの名無しさん** · 2019/02/21(木) 20:20:50.88

スマートかは兎も角、一応マシな形に。
空リストや要素数1にも対応。

Haskell

main = putStrLn $ last2 lst

last2::[String] -> String
last2 [] = []
last2 [x] = x
last2 [x,y] = concat [x," and ", y]
last2 (x:xs) = x ++ "," ++ last2 xs

lst = map show [0..5]

output:
0,1,2,3,4 and 5

**デフォルトの名無しさん** · 2019/02/21(木) 20:59:38.40

>>286
list = [str(x) for x in range(1,5)]
とか
map(lambda x : str(x), list)
でもおk

要素数が1個以下の場合はifで分離するだけなので略

**デフォルトの名無しさん** · 2019/02/21(木) 21:09:47.73

>>279 Common Lisp
(format t "~{~@{~A~^~#,1^, ~}~^ and ~A~}~%" (list 1 2 3 4))
https://ideone.com/6DcwO9

**デフォルトの名無しさん** · 2019/02/21(木) 21:21:18.07

intとstrが混在してる場合でも大丈夫で入力数が1以下ならそのまま返すワンライナー

python
print("".join(reversed(" ,".join(reversed([str(x) for x in list])).replace(",","dna ",1))))

JS+正規表現
console.log(list.join(", ").replace(/(.*),(.*?)+/,"$1 and $2"))

冷静に考えるとこの正規表現を使い回せばどの言語でもワンライナーなのでは

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/02/21(木) 21:21:18.26

ラティス、再び。

お題: >>99 の場合分けのラティス構造を使って、複数の入力文字列について、共通部分をまとめ、１つの文字列に凝縮せよ。

(例)
ああい
ああ
あう
→あ{{あ{い/}}/う}

**デフォルトの名無しさん** · 2019/02/21(木) 21:30:40.21

よく考えたらreversedなんか使わんでも
print((" ,".join([str(x) for x in list][::-1]).replace(",","dna ",1))[::-1])
でいけるか。join削減できるし

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/02/21(木) 21:32:52.15

出力文字列の長さは最短でなければならない。
場合分けの順序は問わないが、場合分けの項目について、ソートすることが望ましい。

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/02/21(木) 21:37:53.05

一番外側の { } は省略可能。
共通部分がないときは、/で区切って出力せよ。

**279** · 2019/02/21(木) 21:39:50.99

>>279 pike
https://ideone.com/0nn6Wt

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/02/21(木) 21:55:49.44

このラティス構造っていうの、言語学ではよく使うらしいが、専門じゃないからよくわからない。

**デフォルトの名無しさん** · 2019/02/21(木) 22:55:49.76

>>279
>>292

Haskellでもワンライナー出来たけど、読みやすいとは思えない。(横長だし)
発想としては(要素数2以上なら)最後以外の要素(文字列)の頭に','追加して、全部結合して(大きな文字列にして)最後に頭の','を省く。

main = putStrLn.tail.concat $ if length lst < 2 then lst else [(concat.(map (\x -> ',':x)).init) lst," and ",last lst]

lst = map show [0..5]

個人的に >>287 の方が発想も読みやすさも好みの書き方。
(読み難くなるなら関数分ける派)

pythonのはワンライナーでも比較的読みやすくて、ちょっと羨ましい。

**デフォルトの名無しさん** · 2019/02/21(木) 22:59:16.06

>>297
弄ってるうちに要素一以下だとバグ出てた。

正しいコードはこっち。

putStrLn.concat $ if length lst < 2 then lst else [(tail.concat.(map (\x -> ',':x)).init) lst," and ",last lst]

**デフォルトの名無しさん** · 2019/02/21(木) 23:36:37.11

>>282 Perl5

sub f {
　my $a = shift;
　@_ ? (@_ > 1 ? "$a, " : "$a and ").f(@_) : $a
}

use feature say;

say f(qw[red green black white]);
say f(qw[apple banana]);
say f(qw[one]);

実行結果
~ $ perl 13_279_and.pl
red, green, black and white
apple and banana
one

**デフォルトの名無しさん** · 2019/02/22(金) 00:04:51.72

>>279 Squeak/Pharo Smalltalk

(0 to: 3) asCommaStringAnd "=> '0, 1, 2 and 3' "

**デフォルトの名無しさん** · 2019/02/22(金) 00:07:27.55

>>299
ｱﾝｶｰ間違えた >>279 宛だった…orz

>>279 もう一丁 Perl5

sub g {
　my $z = ' and '.pop @_ if @_ > 1;
　join(', ', @_).$z;
}

use feature say;
say g(qw[red green black white]);
say g(qw[apple banana]);
say g(qw[one]);

実行結果
~ $ perl 13_279_and_2.pl
red, green, black and white
apple and banana
one

**デフォルトの名無しさん** · 2019/02/22(金) 00:28:04.99

>>300
そういう関数が既にあるの？

**デフォルトの名無しさん** · 2019/02/22(金) 00:31:28.15

>>302
ｸﾞｸﾞﾙとあるみたいよ。
組み込みMethodを山のように持っていそう

**デフォルトの名無しさん** · 2019/02/22(金) 00:49:22.57

ほえー

**デフォルトの名無しさん** · 2019/02/22(金) 06:09:02.19

>>279
Smalltalk (Pharo 7)

#('apple' 'banana' 'orange' 'mango') asCommaStringAnd
==> 'apple, banana, orange and mango'

#('apple' 'banana') asCommaStringAnd
==> 'apple and banana'

#('apple') asCommaStringAnd
==> 'apple'

**デフォルトの名無しさん** · 2019/02/22(金) 06:36:03.41

>>279 python

def f(lst): return ('空だ' if not lst else
','.join([str(x) for x in lst[:-1]])
+ (' and ' if len(lst)>1 else'')
+ str(lst[-1])
)

print(f( [ 1,'二',3,4,'五'] )) # 1,二,3,4 and 五
print(f( [1,'二'] )) # 1 and 二
print(f( [1] )) # 1
print(f([])) # 空だ

**305** · 2019/02/22(金) 07:07:04.28

しまった既出だったorz

**デフォルトの名無しさん** · 2019/02/22(金) 07:58:55.12

>>279 Ruby

f = -> a {a[0..-2].join(', ').sub(/.\K\z/, ' and ') << a[-1].to_s}

(-1..3).each{|r| puts f[[*0..r]]} # =>

0
0 and 1
0, 1 and 2
0, 1, 2 and 3

**デフォルトの名無しさん** · 2019/02/22(金) 08:05:10.35

>>291
あ{{あ{い/}}/う} // 12文字
ああい/ああ/あう // 9文字
あ{あい/あ/う} // 9文字

**デフォルトの名無しさん** · 2019/02/22(金) 08:11:07.14

>>302
Smalltalkは1970年代頃にはすでにこんな感じで
https://upload.wikimedia.org/wikipedia/commons/6/6e/Smalltalk-76.blowup.png
IDEからお絵かきツールまで処理系に組み込みだったので
生活に密着したメソッドが揃っています！

**デフォルトの名無しさん** · 2019/02/22(金) 09:34:06.68

ラティス構造って要するに正規表現を生成すりゃーいいのか？

**デフォルトの名無しさん** · 2019/02/22(金) 19:34:29.73

>>233
海外の人の
https://enigmaticcode.wordpress.com/2013/10/15/enigma-136-twelve-point-square/
https://github.com/enigmatic-code/lattice_circles

**デフォルトの名無しさん** · 2019/02/22(金) 19:43:43.74

お題：21の階乗を計算して表示せよ。
https://ideone.com/gQAd37

**デフォルトの名無しさん** · 2019/02/22(金) 20:16:33.34

>>310
ほえー

**デフォルトの名無しさん** · 2019/02/22(金) 21:26:47.09

>>313 JavaScript
console.log(Array.from({length: 21}, (v, i) => i + 1).reduce((acc, v) => acc * v));

**デフォルトの名無しさん** · 2019/02/22(金) 21:42:16.23

お題：
長方形のフィールドが与えられる。フィールド上では上下左右に移動することができる。
各マスの数字はそのマスに入るためのコストを表す。
SからGに向かうときの最小コストを求めよ。(SとGのコストは0とする)

S5111
1115G
=> 6

S1111
98642
G1111
=> 9

13457689768914512071934123457
G4578901258901212890361125312
37890423076834712378998725463
16890102569615902061456259893
34582934765923812893461515232
57896123896741378915691551697
89013897456123457162501835479
21389046013845610034623405686
8902346203948612341356362342S
=> ?

**デフォルトの名無しさん** · 2019/02/22(金) 21:49:55.63

>>279
>>289
Common Lispで~#[...~]を使ってみた
(format t "~{~S~#[~; and ~:;, ~]~}" '(apple banana orage mango))

**デフォルトの名無しさん** · 2019/02/22(金) 22:00:24.05

こういう文章題好き。
でも実力不足で解けない…
a*かな？

**デフォルトの名無しさん** · 2019/02/22(金) 22:05:57.76

>>313　Perl5

use bignum (l=>GMP);

$n = 1;
$n *= $_ for 2..21;

print "$n\n";

実行例
~ $ perl 13_313.pl
51090942171709440000

**デフォルトの名無しさん** · 2019/02/22(金) 22:26:00.12

>>313 JavaScript
console.log((f=n=>n?n*f(n-1):1)(21))

**デフォルトの名無しさん** · 2019/02/23(土) 00:16:14.24

>>313 Smalltalk-76

https://imgur.com/a/a7MClxL

**デフォルトの名無しさん** · 2019/02/23(土) 00:27:48.65

>>313 python
#階乗1
import math
print('階乗1',math.factorial(21))

#階乗2
def f(n): return f(n - 1)*n if n > 1 else n
print('階乗2',f(21))

#階乗3
print('階乗3',(lambda x:f(21))( globals().update({"f": lambda n: n*f(n - 1) if n > 2 else n })))

**デフォルトの名無しさん** · 2019/02/23(土) 01:14:20.46

>>279
Kotlin script
最後のカンマを正規表現の文字列置換で and にしただけ。

println(listOf("abc", "def", "xyz").joinToString(", ").replace(",([^,]*)$".toRegex(), " and$1"))

出力

abc, def and xyz

**デフォルトの名無しさん** · 2019/02/23(土) 01:19:01.99

lispって組み込みで素数かどうか判定するやつ提供されてるのか、、、面白い！

**デフォルトの名無しさん** · 2019/02/23(土) 02:10:15.51

>>313
bc

n = 2; for (i = 3; i <= 21; i++) n*=i; n

出力
51090942171709440000

**デフォルトの名無しさん** · 2019/02/23(土) 03:31:27.03

>>313 dc

~$ echo 21 20 19 18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 ********************p | dc

51090942171709440000

**デフォルトの名無しさん** · 2019/02/23(土) 03:32:49.90

bcのってjsでもそのまま動くんだな。どっちもc由来文法だからか…
for(i=s=1;i<22;)s*=i++;s

**デフォルトの名無しさん** · 2019/02/23(土) 04:30:09.37

>>326
恥ずかしながらdcコマンド知らなかった…いいねこれ。
~$ echo "$(seq -s' ' 1 21)$(printf '* %.0s' {1..20})p" | dc
51090942171709440000

**デフォルトの名無しさん** · 2019/02/23(土) 08:05:10.28

>>313 Maxima
print(21!);

**デフォルトの名無しさん** · 2019/02/23(土) 08:20:33.48

>>313
;; Common Lisp
(loop for i from 1 to 21 for r = i then (* r i) finally (print r))

**デフォルトの名無しさん** · 2019/02/23(土) 08:45:55.53

>>316
これは、本格的だな

ダイクストラ・A* みたいな、順位キュー(priority queue)を使わないと、いけないかも

**デフォルトの名無しさん** · 2019/02/23(土) 09:18:55.19

>>313
Smalltalk (Pharo 7)
21 factorial
==> 51090942171709440000

**デフォルトの名無しさん** · 2019/02/23(土) 12:01:13.29

>>316 Java
https://ideone.com/ZhJHKg

**デフォルトの名無しさん** · 2019/02/23(土) 12:26:35.61

>>313
Ruby

( 1..21 ).inject( 1, :* )

**デフォルトの名無しさん** · 2019/02/23(土) 12:44:52.28

python3
標準ライブラリ内の数学関数の例
import math
print(math.factorial(21))
そうじゃない例
from functools import reduce
print(reduce(lambda x,y:x*y,range(1,22)))

ちょっと高度化したお題
素数階乗n#を実装せよ
ただし素数階乗とは与えられた整数n以下のすべての素数の積である
例
1#=1
3#=4#=6
5#=30

**デフォルトの名無しさん** · 2019/02/23(土) 13:22:30.58

例がちょっと意味分からない
1#=1
1以下の素数の積なのに1？
3#=4#=6
何これ？
5#=30
これだけ分かる

**デフォルトの名無しさん** · 2019/02/23(土) 13:25:18.18

あ、二番目分かりました。
一行目だけ分からない

**デフォルトの名無しさん** · 2019/02/23(土) 13:28:26.15

>>335 Java
https://ideone.com/4M3U1T

**デフォルトの名無しさん** · 2019/02/23(土) 13:34:54.53

>>337
掛けるもののがないときは1として扱うのが普通だよ
0!とかΠの項数が0の時とか

ただこの出題者はそのへん理解してないだろうから解く気がしない

**デフォルトの名無しさん** · 2019/02/23(土) 13:40:09.27

>>339
ありがとう。
数学と同じとは限らないんだね。
1も素数としてやってみます。

**デフォルトの名無しさん** · 2019/02/23(土) 13:47:45.99

>>340
1を素数と見做すんじゃなく空積の1

**デフォルトの名無しさん** · 2019/02/23(土) 13:53:12.99

というか数学でも0!=1!=1と定義されているのが普通だと思うし
高校でも大学でもそうじゃない問題を見たことがないのだが

**デフォルトの名無しさん** · 2019/02/23(土) 13:53:38.08

>>340
いや、むしろ数学の世界での慣習なんですけど…

**デフォルトの名無しさん** · 2019/02/23(土) 14:28:11.89

単位元(初期値)だろ。
足し算は0、掛け算は1 が、単位元

Ruby で、
( 1..21 ).inject( 1, :* )

1 が初期値で、:* で掛け算メソッドを渡している

**デフォルトの名無しさん** · 2019/02/23(土) 15:02:20.95

>>342
> ただし素数階乗とは与えられた整数n以下のすべての素数の積である

と書いてあるので、

「与えられた整数n」が1
のとき、
「与えられた整数n以下のすべての素数の積」
は、
「1以下のすべての素数の積」
となり、
1以下に素数はないのになんで例で答がが1になってるんだろう、と思った次第です。
お騒がせしました。

**デフォルトの名無しさん** · 2019/02/23(土) 15:15:16.07

できた
JavaScript
const prodPrimes = n => {
const primes = [1];
for (let m = n; m > 1; m--) {
let prime = 0;
for (let i = 2; i <= m - 1; i++) {
if (m % i === 0) prime = i;
}
primes.push(prime || m);
}
return [...new Set(primes)].reduce((acc, p) => acc * p);
}
console.log(prodPrimes(1)); //=> 1
console.log(prodPrimes(3)); //=> 6
console.log(prodPrimes(4)); //=> 6
console.log(prodPrimes(5)); //=> 30

今夜はPythonで>>316に挑戦したい

**デフォルトの名無しさん** · 2019/02/23(土) 15:45:56.58

>>335 J
f =: 3 : 0
*/ 1 , I. 1 p: i. >:y
)

f@> 1 3 4 5 21
1 6 6 30 9699690

**デフォルトの名無しさん** · 2019/02/23(土) 15:50:44.94

Jどこで覚えればいいの？
Effective J的な読みやすい書籍ないの？