プログラミングのお題スレ 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/14(木) 21:20:53.44

>>204

1つ目の # は6個で2行3列が全て埋まります

###
###

2つ目の ### は2個で2行3列が全て埋まります

###
###

3つ目の #
　　　 # は3個で2行3列が全て埋まります

###
###

4つ目の ###
　　　 ### は1個で2行3列が全て埋まります

###
###

**デフォルトの名無しさん** · 2019/02/15(金) 01:14:00.78

>>203
回転を許す立場なら
@_
_@
って言うパーツ一種類だけからできてんじゃん
頭大丈夫か？

**デフォルトの名無しさん** · 2019/02/15(金) 01:38:17.60

>>207 b と d が同じに見えるそっちこそ頭大丈夫か？

abcd
badc

これのどこが、
--@
@―

なんだよ。

**デフォルトの名無しさん** · 2019/02/15(金) 02:40:42.39

90度回転ありなら
# 　 # 　 # 　 #
# と # と # と #
で敷きつめられる(＝全て埋まる)という意味だろうけど
>>179に抵触するので、これは無しでしょ

**デフォルトの名無しさん** · 2019/02/15(金) 06:13:53.42

>>208
回転を許すっつってんだろ氏ねよ糞無能が
@_
_@
を90度回転させたら
_@
@_
だろうが
市ね糞野郎

**デフォルトの名無しさん** · 2019/02/15(金) 08:54:29.71

>>209 ようやくわかった。
a_
_a
_b
b_
などと並んでるものは、全て同じパーツとみなすという意味か。

>>176 のお題をよく見ると、2 x 3 の正解の回答が書かれてる。斜めは許していないからダメだろ。
また、回転も許していない。
回転を許すなら
■
■ ■
というパーツも入るがそれは除外されてるから、回転も無しだ。

**デフォルトの名無しさん** · 2019/02/15(金) 10:38:13.03

>>199のような飛び飛びのパターンまで含めると5x5くらいのサイズなら解けそうでも
10x10くらいの大きさになるとほぼ解けなくなるか？

**デフォルトの名無しさん** · 2019/02/15(金) 11:04:50.72

...
d0<-a
a->b
b->c
c->d
c'<-d
b'<-c'
a<-b'
d->a2
d<-a2
a2->b2
....
に対して
任意の英数字から初めて右向きの矢印をnこ進んだ英数字を一瞬で割り出す簡単な計算方法を教えろ
左向きの矢印のときも答えろ
ここで英数字には好きな整数の値を対応させろ

**デフォルトの名無しさん** · 2019/02/15(金) 11:10:32.09

自己解決しました
この問題には答えなくていいです

**デフォルトの名無しさん** · 2019/02/15(金) 11:21:16.25

新問題
...
g0<-a
a->b
b->c
c->d
c'<-d
b'<-c'
a<-b'
d->e
e->f
f->g
f'<-g
e'<-f'
g->a1
g<-a1
a1->b1
....
に対して
任意の英数字から初めて右向きの矢印をnこ進んだ英数字を一瞬で割り出す簡単な計算方法を教えろ
左向きの矢印のときも教えろ
ここで英数字には好きな整数の値を対応させろ

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

訂正
d<-e'
追加で

**デフォルトの名無しさん** · 2019/02/15(金) 11:45:59.15

日本語で書けや

**デフォルトの名無しさん** · 2019/02/15(金) 11:55:27.68

自己解決しました
この問題には答えなくていいです
>>217
これからは英語で書くので許して下さい

**デフォルトの名無しさん** · 2019/02/15(金) 12:34:22.87

自己解決ってどういうこと？
宿題貼ってるの？

**デフォルトの名無しさん** · 2019/02/15(金) 12:41:19.85

俺はキチガイだから相手にしないほうが良い

**デフォルトの名無しさん** · 2019/02/15(金) 12:43:47.27

わけのわからん問題が続くなあ・・・

**デフォルトの名無しさん** · 2019/02/15(金) 17:27:20.42

>>211
> 回転もおkかは好きに定めていい

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

しかしこの問題は回転を考えないと、曲がったパーツは不可能だね。
かなり単純化される。

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

なんかスレが新しくなってから湧いてきたPythonのクソみたいなコード連投してる日本語がめちゃくちゃのやつうざい

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

前スレから居るんですよそいつね

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

2行3列で回転無しなら以下の4つが答え

#

###

#
#

###
###

回転ありなら更に以下の2つも

##
#

#
##

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

>>226
> ##
> #
>
> #
> ##
この二つは90度回転した同じものやが

**デフォルトの名無しさん** · 2019/02/16(土) 09:56:41.50

煽りではなく本当に発達障害またはそれに準ずる知的ボーダーを疑うレベルで頭悪いな

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

>>228 煽りじゃん。プログラムを出してくれた方が良い。

**デフォルトの名無しさん** · 2019/02/16(土) 12:54:53.60

お題：バブルソートを実装せよ

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

>>230 Perl5
use feature qw{current_sub say};

sub bblsort {
for (0..@_) {
sub {
if (@_ >= 2) {
__SUB__->(@_[1..$#_]);
($_[1], $_[0]) = ($_[0], $_[1])
if $_[0] > $_[1]
}
}->(@_[$_..$#_]);
}
}

use List::Util shuffle;
@a = shuffle 1..20;
say "1) @a";
bblsort @a;
say "2) @a";

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

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

お題：数値Xを4つの方法で整数に丸めよ
(1) 0に向かう
(2) 0から遠ざかる
(3) 正の無限大に向かう
(4) 負の無限大に向かう

X = 0.5
=> 0 1 1 0

X = -1.1
=> -1 -2 -1 -2

X = 3
=> 3 3 3 3

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

ふたたび、円の内部の整数点を求めるやつ。個数ごとその最小半径を求める。
41個、47個とかが難し目だった気が。

**デフォルトの名無しさん** · 2019/02/16(土) 17:07:10.46

内部じゃなくて円周上のやろ

**デフォルトの名無しさん** · 2019/02/16(土) 17:07:42.16

>>230

**デフォルトの名無しさん** · 2019/02/16(土) 17:27:32.65

>>232 組み込み使っていいんだよね? (面倒になるけど、使わなくても書けるけどｻ…)
Perl5

use POSIX qw(floor ceil);
for (0.5, -1.1, 3) {
@a = ("$_ => ",
sprintf('%d', $_), #int($_),
($_ > 0 ? ceil($_) : ceil($_-1)),
ceil($_),
floor($_)
);
print "@a\n";
}

実行結果
~ $ perl 13_232_round.pl
0.5 => 0 1 1 0
-1.1 => -1 -2 -1 -2
3 => 3 3 3 3

**デフォルトの名無しさん** · 2019/02/16(土) 17:33:21.11

>>230 Ruby
def bs(ary)
　　ary.tap do |a|
　　　　(a.size**2).times do
　　　　　　(a.size - 1).times do |i|
　　　　　　　　a[i + 1], a[i] = a[i, 2] if a[i] > a[i + 1]
　　　　　　end
　　　　end
　　end
end
p bs([3, 1, 4, 15, 92]) # => [1, 3, 4, 15, 92]

>>232
sgn = -> n {n <=> 0}
r4 = -> n {n.floor}
r3 = -> n {-r4[-n]}
r2 = -> n {sgn[n] * r3[n.abs]}
r1 = -> n {sgn[n] * r4[n.abs]}

[0.5, -1.1, 3].each{|i| puts 'x = %p => %p %p %p %p' % [i, r1[i], r2[i], r3[i], r4[i]]}
# =>
x = 0.5 => 0 1 1 0
x = -1.1 => -1 -2 -1 -2
x = 3 => 3 3 3 3

**デフォルトの名無しさん** · 2019/02/16(土) 17:34:37.44

>>236　これだと
入力が０のとき
>(2) 0から遠ざかる
が-1になっちゃう。

($_ > 0 ? ceil($_) : ceil($_-1)),

↓を

($_ >= 0 ? ceil($_) : ceil($_-1)),

とすべきでしょうね。ｽﾏｿ

**デフォルトの名無しさん** · 2019/02/16(土) 18:34:59.76

>>234
円周上が正解

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

>>262 J
f =: (**<.@|),(**>.@|),<.,>.
f 0.5
0 1 1 0

f _1.1
_1 _2 _1 _2

f 3
3 3 3 3

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

>>262に期待。

**デフォルトの名無しさん** · 2019/02/16(土) 22:38:05.19

>>240
間違えました
262ではなく>>232でした

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

>>232 octave
https://ideone.com/7nvSr1

◆QZaw55cn4c · 2019/02/17(日) 00:20:40.59

>>232 をやろうとおもって、IEEE754 の float/double を直接触る方法を探しているのですが、なにかいい方法はないでしょうか…

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

言語も言わずに(ry
https://qiita.com/nia_tn1012/items/d26f0fc993895a09b30b

◆QZaw55cn4c · 2019/02/17(日) 00:30:56.20

>>245
thx a lot !!

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

>>244
あった

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

>>233
これ

「Nに対し平面上の円で、その円周上の整数点がちょうどN個となる円の最小半径を求めよ」

例)
x^2 + y^2 = 1の整数点は4つだが、最小半径ではない。
(x-0.5)^2 + (y-0.5)^2 = 0.5の方が小さい。

**デフォルトの名無しさん** · 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'