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

**デフォルトの名無しさん** · 2018/04/24(火) 20:45:14.49

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

前スレ
プログラミングのお題スレ Part10
https://mevius.5ch.net/test/read.cgi/tech/1514772904/

【出題と回答例】
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/

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

**デフォルトの名無しさん** · 2018/05/02(水) 02:57:52.71

出題時の注意>>4

**デフォルトの名無しさん** · 2018/05/02(水) 02:59:10.33

そら言えてる

**デフォルトの名無しさん** · 2018/05/02(水) 03:36:28.18

お題が流れたみたいなのでリンクまとめ

>>11
"073:0" -> 18
"07362:450" -> 36
"06464:36470" -> 42
"0827171:28480" -> 66
"0737491:28180" -> 146
"05374734372747484:184618186912120" -> ?

>>40
[-1, 2, 8, -9, -2, -3, -6, -10, -8, 5, 7, 9, 7]
-> [-1, -9, -3, 5, 7, 9, 7, 2, 8, -2, -6, -10, -8]

>>77
"213cba213cba213cba" -> "213aaa213bbb213ccc"

>>102
gccgc -> 2
ggggggg -> 0
cppcppppccpppppc -> 5
cppcppppccpgpppc -> 0

>>117
odaiodai -> 2
ooddaai -> 1
idao -> 0
ododoadioadioadioadioadioadiodaioadodioadiaodi -> ?

**デフォルトの名無しさん** · 2018/05/02(水) 05:46:42.10

お題：Hello, World!を10回出力してください。ただし、偶数文字を小文字、奇数文字を大文字にすること。さらに3の倍数の文字をランダムな英字にすること。

**デフォルトの名無しさん** · 2018/05/02(水) 07:40:02.20

>>206 Perl5
use feature 'say';
@s = split'','Hello, World!';
@Az = ('A'..'Z', 'a'..'z');
for $i (0..9) {
do {$s[$_ - 1] = $Az[int(rand(@Az))]
if $_ % 3 == 0} for 1..@s;
my @t;
push @t, $i % 2 ? lc $c : uc $c
while ($i, $c) = each @s;
say @t;
}

実行結果
$ perl 11_206.pl
HeHlOg wQrLz!
HeOlOp wOrLo!
HeAlOh wMrLf!
HeZlOs wJrLz!
HeElOh wBrLg!
HeBlOa wIrLy!
HeFlOw wCrLb!
HeTlOc wSrLp!
HeOlOm wNrLx!
HeJlOt wSrLl!

**デフォルトの名無しさん** · 2018/05/02(水) 09:59:45.49

>>206 Squeak/Pharo Smalltalk

Transcript open.
10 timesRepeat: [
| hello |
hello := 'Hello, World!' collectWithIndex: [:chr :idx |
((idx isDivisibleBy: 3) ifTrue: [Character alphabet atRandom] ifFalse: [chr])
perform: (idx even ifTrue: [#asLowercase] ifFalse: [#asUppercase])
].
Transcript cr; show: hello
]

=> HeYlOz wJrLp!
HeNlOe wArLr!
HeBlOn wWrLi!
HeSlOx wOrLk!
HeKlOy wRrLb!
HeIlOs wJrLw!
HeMlOd wGrLm!
HeElOz wLrLf!
HeJlOw wUrLr!
HeTlOe wMrLy!

**デフォルトの名無しさん** · 2018/05/02(水) 10:26:22.57

>>206 Common Lisp
https://ideone.com/RrNm7L

**デフォルトの名無しさん** · 2018/05/02(水) 11:55:19.15

>>206
C言語
https://ideone.com/5UVPgG

**デフォルトの名無しさん** · 2018/05/02(水) 12:51:34.17

お題
N項目のレーダーチャートを考える。
各項目の点数が配列A[N]で与えられるので、
項目の並べ方を調整して、レーダーチャートの面積を最大化せよ。
※レーダーチャートの形状は正N角形であり、A[i]は中心からの距離を意味する。

{4,3,2,1,0}
=> 10.9371 //{0,1,3,4,2}

{10,0,0,10,10,0,10,10}
=> 141.421 //{0,0,0,10,10,10,10,10}

{1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16}
=> 280.698

**デフォルトの名無しさん** · 2018/05/02(水) 12:58:12.60

>>206 Emacs Lisp

(defun* f (a &aux (b 0))
(map 'string (lambda (c) (let ((d (if (= (% (incf b) 3) 0) (+ ?a (random 26)) c))) (if (oddp b) (upcase d) (downcase d)))) a))

(mapc (lambda (x) (princ (funcall #'f x)) (terpri)) (make-list 10 "Hello, World!"))
HeElOf wBrLb!
HeAlOj wYrLk!
HeZlOz wQrLd!
HeBlOh wIrLm!
HeMlOy wIrLb!
HeZlOo wTrLk!
HeRlOq wErLv!
HeFlOn wKrLq!
HeAlOg wQrLv!
HeFlOa wRrLi!

**デフォルトの名無しさん** · 2018/05/02(水) 16:46:53.87

>>211 Emacs Lisp

(defun* f (a &aux b c)
(loop for i from 0 below (length a) do
(if (< i 3)
(setq b (append b (list (nth i a))))
(dotimes (n (length b))
(push (cons (+ (abs (- (nth n b) (nth i a))) (abs (- (nth (% (1+ n) (length b)) b) (nth i a)))) n) c))
(let ((d (1+ (cdar (sort (copy-seq c) (lambda (a b) (< (car a) (car b))))))))
(setq b (append (subseq b 0 d) (list (nth i a)) (nthcdr d b))))))
b)

(defun g (a)
(flet ((b (c d e)
(when (> c d) (rotatef c d))
(if (= d 0) 0.0 (* d (sin (/ pi e)) d (cos (/ pi e)) c (/ (float d))))))
(let ((h (length a)) (i 0.0))
(dotimes (n h)
(incf i (apply #'b (list (nth n a) (nth (% (1+ n) h) a) h))))
i)))

(f '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16)) => (1 2 4 6 8 10 12 14 16 15 13 11 9 7 5 3)
(g (f '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16))) => 280.69829763979334

◆QZaw55cn4c · 2018/05/02(水) 17:33:20.51

有効な（注：主観による）お題一覧
>>11
>>40
>>77
>>80
>>87
>>102

◆QZaw55cn4c · 2018/05/02(水) 17:33:54.32

>>214

>>117
>>150
>>206
>>211

**デフォルトの名無しさん** · 2018/05/02(水) 17:52:43.41

>>211
J
山型に並べるだけ。
証明は略
(谷がある並び順は谷底を移動してより大きく出来ることが示せる。
谷がない場合、頂上から左右に振り分けて行くのが最大と示せる)

NB. sin α
sinA =: 1&o.@((o.2)&%)@#
NB. ズラして掛けた総和
s =: +/@(*(}.@,{.))"1
NB. 山型に並べる
raz =: (/:[)/:(/:+/@(* ,~/"1)@(*\)@i.@#)
NB. 山型に並べてズラして掛けた総和にsinα掛けて半分にする
ans =: -:@(sinA*(s@raz))

1行で書くと
ans =: -:@(1&o.@((o.2)&%)@#*+/@(*(}.@, {.))"1@((/:[)/:(/:+/@(*,~/"1)@(*\)@i.@#)))

実行例
ans 4 3 2 1 0
10.9371
ans 10 0 0 10 10 0 10 10
106.066
ans 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
280.698

https://%62it.ly/2jlIjeo

**デフォルトの名無しさん** · 2018/05/02(水) 18:09:55.15

>>211
J 一応総当たりも (sinA, s は同じ)
all =: A.~(i.@!@<:@#)
min =: >./
ans2 =: -:@((sinA)*(min@(s@all)))

実行例
ans2 4 3 2 1 0
10.9371
ans2 10 0 0 10 10 0 10 10
141.421
ans2 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|out of memory: all
| ans2 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

**デフォルトの名無しさん** · 2018/05/02(水) 18:10:22.50

>>206 octave
https://ideone.com/j9EsUn

**デフォルトの名無しさん** · 2018/05/02(水) 18:11:53.98

あれ？バグってるなこれ
総当たりの方は取り消します

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

違った
山型に並べる方を取り消します、だった。

**デフォルトの名無しさん** · 2018/05/02(水) 18:27:52.12

>>216
正しくはこうでした
sinA =: 1&o.@((o.2)&%)@#
s =: +/@(*(}.@,{.))"1
raz =: ((\: [) {~ (/: (* <:@(2&*)@(2&|)))@i.@#)
ans =: -:@(sinA*(s@raz))

1行にするのは略

https://%62it.ly/2w3XF0m

**デフォルトの名無しさん** · 2018/05/02(水) 19:04:01.98

>>206
Perl
https://paiza.io/projects/3hW53qnnJ69_qwvN_oWiTA
改行入れないで変換しちゃったが、指定がないからまあいいか。

**デフォルトの名無しさん** · 2018/05/02(水) 19:12:21.47

>>211
それ、俺の直感ではsortすればいいだけなんじゃあ?
証明できんけど。

**デフォルトの名無しさん** · 2018/05/02(水) 19:28:18.08

>>223

>>211
… (ry
> {4,3,2,1,0}
> => 10.9371 //{0,1,3,4,2}
＿＿＿＿＿＿＿＿＿~ ~

**デフォルトの名無しさん** · 2018/05/02(水) 19:30:41.81

>>224
あー。ちょっと違うな。崖作らずに山作る感じか。
証明できんけどw

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

>>225
「大きい方から順に取って、既存の列の大きい端の外側に配置」を繰り返せばいい

0 1 2 3 4 のときは
4
4, 3
2, 4, 3
2, 4, 3, 1
0, 2, 4, 3, 1

この時の面積は
1/2・sin 72° ・(0*2+2*4+4*3+3*1+1*0) = 10.9371

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

ググったら公式出てきた
http://chaoxuprime.com/posts/2012-08-08-maximize-the-area-of-a-radar-chart.html

プログラムでやるなら、数列の前項後項の積和を最大化する方針がいいのかな

**225** · 2018/05/02(水) 20:32:00.70

面倒なので証明しないで全パターンの面積を求めて最大のやつを出すように作ろうかと思ったが、
腹が減ったので飯食ってから考えよう。(というかこうするならほとんど考える必要ないなこれw)

**211** · 2018/05/02(水) 20:37:30.10

問題思いついた後、ググって>>227見つけたので出題した次第です。
最小化については上手い方法があるんだろうか？

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

>>227
そのπってのが真ん中から左右に配置して行くインデックス列。
でその証明は不完全(*1)だけど結論は合ってる。

(*1)
n-1個の時の最大になる列のどこかに
n番目の数を挿入すればn個の時の解が得られる、
ということを証明せずに利用している。

小さくするには山谷の数を多くする(小さいのと大きいのがなるべく隣接するように置く)
ってことは直感的にわかるんだけど具体的な構成法は考察がいるな

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

>>211 Squeak/Pharo Smalltalk

| fn |
fn := [:arr |
| strm res |
strm := arr sorted readStream.
res := OrderedCollection withAll: (strm next: 3).
[strm atEnd] whileFalse: [
| next foundPos |
next := strm next.
foundPos := (1 to: res size) detectMax: [:idx |
| a1 a2 |
(a1 := res at: idx) + (a2 := res atWrap: idx+1) * next - (a1 * a2)].
res add: next afterIndex: foundPos
].
res := res asArray.
(res * (2 * Float pi / res size) sin * ({res last}, res allButLast) / 2) sum -> res
].

fn value: #(4 3 2 1 0).
"=> 10.937149937394265->#(0 1 3 4 2) "
fn value: #(10 0 0 10 10 0 10 10).
"=> 141.42135623730948->#(0 10 10 10 10 10 0 0) "
fn value: #(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16)
"=> 280.6982976397934->#(1 2 4 6 8 10 12 14 16 15 13 11 9 7 5 3) "

**デフォルトの名無しさん** · 2018/05/03(木) 00:37:28.69

>>230 最小を目指して, 山谷の数を多くしてみました.

(defun f2 (a)
(let* ((b (sort (copy-seq a) #'<))
(c (/ (length b) 2))
(d (let ((e (subseq b 0 c))) (apply #'append (mapcar (lambda (x) (let ((y (pop e))) (if y (list x y) (list x)))) (reverse (subseq b c))))))
(h))
(loop for i from 0 below (length d) do (setq h (if (or (= (% i 4) 1) (= (% i 4) 2)) (append h (list (nth i d))) (append (list (nth i d)) h))))
h))

(f2 '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16))
(8 10 6 12 4 14 2 16 1 15 3 13 5 11 7 9)

(g (f2 '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16)))
157.47423241823444

**デフォルトの名無しさん** · 2018/05/03(木) 00:59:37.08

>>206
Bash
https://ideone.com/ljYBHK

エラーには目を瞑ってください

**デフォルトの名無しさん** · 2018/05/03(木) 01:32:09.14

>>233
無為に捨てられる何千もの’Hello, World!’がかわいそうすぎね？(´；ω；｀)

**デフォルトの名無しさん** · 2018/05/03(木) 01:32:43.19

>>211 Perl5
https://ideone.com/cMJGDR

自力で動的計画法による解法を考えようとしていたけど、
>>227で紹介されたWEBの解法に勝る見込みが無さそうなので
思考を停止してWEBの解法を愚直に実装したものです

**デフォルトの名無しさん** · 2018/05/03(木) 09:34:11.17

【お題】
与えられた整数のリストで、
2つの要素の和が100になるすべての組を列挙せよ。

例：
[1, 99, 20]
-> [[1, 99]]

[62, 116, 181, 86, 60, 98, -16, 73, 131, 16, 80, -81, 40]
-> [[40, 60], [-16, 116], [-81, 181]]

[100, 0, 100, 0]
-> [[0, 100], [0, 100], [0, 100], [0, 100]]

**デフォルトの名無しさん** · 2018/05/03(木) 10:12:06.60

>>236 Rust
https://play.rust-lang.org/?gist=29b80b217f269f6ad43a712d52fd595e

**デフォルトの名無しさん** · 2018/05/03(木) 10:13:33.58

>>236 ruby
https://ideone.com/Noq7GJ

**デフォルトの名無しさん** · 2018/05/03(木) 10:19:06.64

>>236
Ruby。
ary.combination(2).select{|x|x.inject(:+)==100}

**デフォルトの名無しさん** · 2018/05/03(木) 10:45:51.16

>>236 Squeak/Pharo Smalltalk

| fn |
fn := [:arr |
| bag |
bag := Bag new.
arr combinations: 2 atATimeDo: [:comb |
comb sum = 100 ifTrue: [bag add: comb sorted]].
bag asArray
].

fn value: #(1 99 20).
"=> #((1 99)) "
fn value: #(62 116 181 86 60 98 -16 73 131 16 80 -81 40).
"=> #((-81 181) (-16 116) (40 60)) "
fn value: #(100 0 100 0).
"=> #((0 100) (0 100) (0 100) (0 100)} "

**デフォルトの名無しさん** · 2018/05/03(木) 11:34:54.61

>>236
C言語
https://ideone.com/Ohue7U

**デフォルトの名無しさん** · 2018/05/03(木) 13:12:32.47

>>236 Perl5
use Data::Dump 'dump';
for ([1, 99, 20],
[62, 116, 181, 86, 60, 98, -16, 73, 131, 16, 80, -81, 40],
[100, 0, 100, 0]) {
sub c {my $d = shift;
my @l = c(@_) if 1 < @_;
@l, map{[$d, $_]} @_};
@s = grep{100 == $$_[0]+$$_[1]} c @$_;
print dump($_)."\n->".dump(\@s)."\n";
}

実行結果
$ perl 11_236.pl
[1, 99, 20]
->[[1, 99]]
[62, 116, 181, 86, 60, 98, -16, 73, 131, 16, 80, -81, 40]
->[[60, 40], [181, -81], [116, -16]]
[100, 0, 100, 0]
->[[100, 0], [0, 100], [100, 0], [100, 0]]

※実行にはperlのData::Dumpモジュールが必要ですが、
　Ideoneのperl 24にはインストールされてないようでした

**デフォルトの名無しさん** · 2018/05/03(木) 13:15:16.16

>>236 c
https://ideone.com/c5I9TG

**デフォルトの名無しさん** · 2018/05/03(木) 14:31:25.30

>>236 javascript

var f = l => {
console.log(
l.reduce((acc, m, i, ary) =>
[
...acc,
...ary.slice(i+1)
.filter(n => m + n == 100)
.map(n => [m, n])
],
[]
)
)
}

f([1, 99, 20])
//=> [[1, 99]]
f([62, 116, 181, 86, 60, 98, -16, 73, 131, 16, 80, -81, 40])
//=> [[116, -16], [181, -81], [60, 40]]
f([100, 0, 100, 0])
//=> [[100, 0], [100, 0], [0, 100], [100, 0]]

**デフォルトの名無しさん** · 2018/05/03(木) 14:55:50.12

Smalltalk のメソッドの充実っぷりには毎回感心

**デフォルトの名無しさん** · 2018/05/03(木) 18:28:55.09

それなりの規模の処理系（GUI付きOSモドキ）をセルフホスティングで構築・維持していると
イディオムがイディオムとして認識・共有されやすく、さらにメソッドとしてまとめられやすいのかも

たとえばスクリプト言語処理系でしかないGNU Smalltalkはあまり便利メソッドが増える感じがしないので

**デフォルトの名無しさん** · 2018/05/04(金) 19:54:42.66

お題
10,000個の単純変数に1から10,000の整数を代入する

**デフォルトの名無しさん** · 2018/05/04(金) 20:34:39.46

>>247 Ruby
(1..10000).each{|i|instance_variable_set("@v#{i}", i}

**デフォルトの名無しさん** · 2018/05/04(金) 20:41:53.19

>>247 Common Lisp
https://ideone.com/tM8Nve

**デフォルトの名無しさん** · 2018/05/04(金) 20:52:57.61

>>247 Bash
ideone だと駄目だった
https://ideone.com/FTnIoN

**デフォルトの名無しさん** · 2018/05/04(金) 21:16:29.34

>>247
Perl

for(1..10000){eval”\$a$_=$_”}

こんなんでいいのか？

**デフォルトの名無しさん** · 2018/05/04(金) 21:23:10.57

>>250
シェルもperlみたいにeval使えば簡単だと思うよ。その他の言語も同様。

てかこれ、インタープリタの言語にはできてもコンパイルする言語の場合は普通の方法ではできないんじゃないかな。
トリッキーな方法使ってようやっとできるかも知れないって感じじゃないだろうか。

**デフォルトの名無しさん** · 2018/05/04(金) 21:49:18.32

Cプリプロセッサでもやろうと思えばできるけど面倒だからやらない

**デフォルトの名無しさん** · 2018/05/04(金) 21:57:55.58

お題：パイ生地を折り畳め
ただし要素数は二個以上で偶数とする
気が向いた人は逆の操作も実装せよ
https://ideone.com/W9woGu

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

>>254
問題の意味がわからん

**デフォルトの名無しさん** · 2018/05/04(金) 23:16:59.35

>>255
分からないときは好きに解釈していいのがこのスレのルール

**デフォルトの名無しさん** · 2018/05/05(土) 00:33:22.15

>>254 Perl5
sub f {pop, shift, @_ ? f(@_) : ()}
sub g {@_ ? do{my $a = shift; shift, g(@_), $a} : ()}
use feature 'say';
sub pai {
say "@pai";
@pai = f(@pai); say "@pai";
@pai = g(@pai); say "@pai";
}
@pai = qw{1 2 3 4 5 6}; &pai;
@pai = qw{a b c d e f}; &pai;

実行結果
$ perl 11_254_1.pl
1 2 3 4 5 6
6 1 5 2 4 3
1 2 3 4 5 6
a b c d e f
f a e b d c
a b c d e f

**デフォルトの名無しさん** · 2018/05/05(土) 01:53:30.67

f, g のような変換関数を作ること自体は簡単な感じがするが、それと「パイ生地の折り畳み」がどう関係するのかがわからんな。
単にここでは折り畳んだらそういう並びになるというルールなだけ？

**デフォルトの名無しさん** · 2018/05/05(土) 01:54:26.33

>>254 Common Lisp
https://ideone.com/cabI9c

**デフォルトの名無しさん** · 2018/05/05(土) 02:02:07.19

半分に折る->後半部を逆順に
折重ねたまま元の大きさまで伸ばす->前半部に合成

パイ生地の作り方からの連想だとは思う

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

>>247 javascript
eval('var ' + [...Array(10000)].map((_, i) => `a${i+1}=${i+1}`).join())
>>252の通りやった

**デフォルトの名無しさん** · 2018/05/05(土) 02:13:33.62

>>258 分からないと言うことをいろいろ言うつもりは無いけどｍ
>>254 のレスの内容とoctaveのコードから考えて
1 2 3 5 6
をパイ生地のように二つに折り畳んだ
1 2 3
6 5 4
を（下を先に選択して）リストで表すと
6 1 5 2 4 3
だということは想像に難くないので、そう解釈して解答を考えた。
gはその逆。誤解はあるかもしれない。

講釈がコードより長くなったけど、
「だけ？」って一体どういういみだよ？

**デフォルトの名無しさん** · 2018/05/05(土) 02:43:53.26

>>262
「パイ生地の折り畳み」という言葉に他の意味がないかってこと。

**デフォルトの名無しさん** · 2018/05/05(土) 07:20:49.47

>>254
J
l =: -: * -.@(2&|)
r =: (# - -:@>:) * 2&|
p_fold =: {~((l+r)@i.@#)

折りたたみちょっと面白いね
何度か繰り返し適用すると元に戻る
例えば4つだと p_fold^:3 (1 2 3 4) => 1 2 3 4
と3回適用すると元に戻る
(^:n ってのはn回適用するJの仕組み)

同様に
p_fold^:5 (1 2 3 4 5 6) =>1 2 3 4 5 6
p_fold^:4 (1 2 3 4 5 6 7 8) => 1 2 3 4 5 6 7 8
p_fold^:9 (1 2 3 4 5 6 7 8 9 10) => 1 2 3 4 5 6 7 8 9 10

**デフォルトの名無しさん** · 2018/05/05(土) 10:31:30.99

>>254 Ruby 条件分岐を使わずにindexのみから求めてみた

f=->a{a.size.times.map{|i|a[(i&1)*i-i/2-1]}}
g=->a{(s=a.size).times.map{|i|a[~(4*i-2*s+3).abs/2]}}
p f[[*1..6]] #=> [6, 1, 5, 2, 4, 3]
p g[f[[*1..6]]] #=> [1, 2, 3, 4, 5, 6]

**デフォルトの名無しさん** · 2018/05/05(土) 11:51:20.86

>>254
C言語
https://ideone.com/frCiwG

**デフォルトの名無しさん** · 2018/05/05(土) 14:19:41.02

>>254 Squeak/Pharo Smalltalk

| f g pie |

f := [:arr |
((1 to: arr size)
collect: [:idx | arr perform: (#(atLast: at:) atWrap: idx) with: (idx / 2) ceiling]
) as: arr species
].

g := [:arr |
(((1 to: arr size) select: #even), ((1 to: arr size) select: #odd) reversed
collect: [:idx | arr at: idx]
) as: arr species
].

pie := 'abcdefg'.
pie := f value: pie. "=> 'gafbecd' "
g value: pie. "=> 'abcdefg' "

pie := (1 to: 7).
pie := f value: pie. "=> #(7 1 6 2 5 3 4) "
g value: pie. "=> #(1 2 3 4 5 6 7) "

**デフォルトの名無しさん** · 2018/05/05(土) 16:41:53.04

>>254 Squeak/Pharo Smalltalk >>265っぽい方針も入れて書き直し

| f g pie |

f := [:arr |
((1 to: arr size)
collect: [:m | arr atWrap: m * m even asBit - (m // 2)]
) as: arr species
].

g := [:arr |
((2 to: arr size by: 2), (1 to: arr size by: 2) reversed
collect: [:idx | arr at: idx]
) as: arr species
].

pie := 'abcdefg'.
pie := f value: pie. "=> 'gafbecd' "
g value: pie. "=> 'abcdefg' "

pie := (1 to: 7).
pie := f value: pie. "=> #(7 1 6 2 5 3 4) "
g value: pie. "=> #(1 2 3 4 5 6 7) "

**デフォルトの名無しさん** · 2018/05/05(土) 17:07:44.87

>>265ってどういう計算してんの？

**デフォルトの名無しさん** · 2018/05/05(土) 17:25:53.15

お題
N×Mのフィールドが与えられる。各マスの意味は以下の通りとする。
'S'：始点
'G'：終点
'.'：通行可
'#'：通行不可

連続して同じ方向に進むことができないという制約下で、
始点から終点までの最短距離を求めよ。

[example 1]
S....
#....
..#..
....G
=> 9

[example 2]
S.....G
.......
=> 12

**デフォルトの名無しさん** · 2018/05/05(土) 17:33:36.44

>>269
配列の長さを L とすると、
f(パイをたたむ)は；
i(0 <= i < L)番目の要素を元の配列の (~...~[i / 2]) % L 番目から持ってくればよい
(~...~はビット反転を i 回繰り返したもの)
g(パイを開く)は；
i(0 <= i < L)番目の要素を元の配列の (- 0.5 - |2 * i - L + 1.5|) % L 番目から持ってくればよい

**デフォルトの名無しさん** · 2018/05/05(土) 18:32:03.46

[][][] [[[ ] X_[[[ [] ][ [] ][][[[]

**デフォルトの名無しさん** · 2018/05/05(土) 18:51:54.01

今抱えてる課題
1から100までインクリメントする変数iを用いて
300から1までの実数を100個出力せよ

i=1の時は300
i=100の時は1
となる式を考えてちょ(人･ω･)☆

**デフォルトの名無しさん** · 2018/05/05(土) 19:03:50.73

>>273
300 - (299.0 / 99.0) * (i - 1)

**デフォルトの名無しさん** · 2018/05/05(土) 19:06:07.33

お題：文字駒を滑らせろ
四方を囲いで被われ駒がこぼれる心配のないM×Nマスのボードがある。
ここに英小文字が印字された正方形の駒が適当に配置されている。(駒のないマスは.(ドット)で表す)
与えられる、ボードを傾ける指示を完遂したときの最終盤面を表示せよ。
指示の方向はU(向かい方向)、D(手前方向)、L(左方向)、R(右方向)の四種類。

例1)
solve([
'...',
'.a.',
'...',
], 'UR')
// ↓
// [
// '..a',
// '...',
// '...',
// ]
https://jsfiddle.net/en6rd3vk/
※盤面は文字列の配列にしているが文字の配列の配列など言語で扱いやすいよう好きにしてよい

例2)
solve(
[".....", ".d.i.", "kmegk", "..tu."],
"LRRLLUDRRLRLRRURRRRLLLRULDUDULDLLRDULURULUDLDLUDDL"
)
//=> [".....", "gk...", "km...", "dietu"]

暇な人は300×300、指示数50くらいでやってみてください。最適化しないと結構時間かかっちゃうと思いますが。

**デフォルトの名無しさん** · 2018/05/05(土) 19:17:21.84

>>274
ありがとうございます(^○^)
範囲を等分してiと合わせるだけだったんですね
これを思いつかないとは・・・寝てきます(・_・;)

**デフォルトの名無しさん** · 2018/05/05(土) 19:38:36.14

>>254
色々な言語で書いてみたが、やってることはほとんど同じ。
それぞれの言語の特徴をあまり生かせてない感じがする。

C
https://paiza.io/projects/zsjD__CUc4kIlaDd-nYgQQ
Kotlin
https://paiza.io/projects/ncCwkTCvQ0IsNcZGbpy_vw
Perl
https://paiza.io/projects/C9lzimZEAZzk25gjn4NGfw

**デフォルトの名無しさん** · 2018/05/05(土) 20:28:32.99

>>270 Ruby 愚直に

https://ideone.com/SYfrSu

**デフォルトの名無しさん** · 2018/05/05(土) 20:59:38.12

>>270 Squeak/Pharo Smalltalk

https://ideone.com/ACAeKW

**デフォルトの名無しさん** · 2018/05/05(土) 22:20:56.64

>>275 Ruby 傾ける順番だけ最適化

https://ideone.com/4iIY9g

**デフォルトの名無しさん** · 2018/05/05(土) 22:58:44.12

お題
Y円を支払うとき、同種の通貨の枚数を最小化する。

Y=500
=> 1 (500*1, 同種の通貨は最大1枚)

Y=300
=> 2 (2*100+2*50, 同種の通貨は最大2枚)

Y=40
=> 3

Y=60
=> 1

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

>>281
通貨の種類は 1, 5, 10, 50, 100, 500, 1000, 2000, 5000, 10000？

**デフォルトの名無しさん** · 2018/05/05(土) 23:19:24.99

>>282 それでいいです。任意の種類に対応できたら尚良し

**デフォルトの名無しさん** · 2018/05/05(土) 23:53:24.33

>>281
=> 0 (カード決済または電子マネー決済)

**デフォルトの名無しさん** · 2018/05/06(日) 00:22:26.26

>>270
C言語
https://ideone.com/YLAnLJ

**デフォルトの名無しさん** · 2018/05/06(日) 01:34:21.80

>>281
C言語
https://ideone.com/RVA3Mk

**デフォルトの名無しさん** · 2018/05/06(日) 01:45:52.35

>>275
Kotlin
https://paiza.io/projects/gVAA38huK6qosFkqbihPTg
ボードの内容と傾ける指示は全て標準入力から入力するようにした。

**デフォルトの名無しさん** · 2018/05/06(日) 06:45:27.16

>>281 Ruby ぴったり払えない時は No Solutions と出力

currency = [1, 5, 10, 50, 100, 500, 1000, 2000, 5000, 10000]
sums = currency.size.times.map { |i| currency[0..i].sum }

[74664, 55998, 37332, 500, 340, 300, 197, 161, 157, 60, 40].each { |yen|
print '%d => ' % yen
min = currency.zip(sums).reverse_each.map { |c, s|
yen -= c * x = [yen/c, -(-yen/s)].min
x
}.max
puts yen.zero? ? min : 'No Solutions'
}
#=>
74664 => 4
55998 => 3
37332 => 2
500 => 1
340 => 3
300 => 2
197 => 3
161 => 1
157 => 2
60 => 1
40 => 3

**デフォルトの名無しさん** · 2018/05/06(日) 08:03:16.30

>>275
一度でも水平垂直の両方に傾けると
座標じゃなくて単に駒の二次元リストでいけると思うから
指示の短縮と合わせて早くできると思うけど
どう書けばいいか悩んでる・・・

**デフォルトの名無しさん** · 2018/05/06(日) 08:16:38.56

>>281 Ruby >>288を修正
currency = [1, 5, 10, 50, 100, 500, 1000, 2000, 5000, 10000]
samples = [74664, 55998, 37332, 500, 340, 300, 197, 161, 157, 60, 40]
cands = currency.zip(currency.reduce([]){|s, e| s << s.last.to_i + e}).reverse_each
breakdown = lambda do |yen|
　　x = cands.map{|c, s| yen -= c * x = [yen/c, -(-yen/s)].min; x}.max
　　yen > 0 ? 'No Solution' : x
end

samples.each{|yen| puts '%d => %s' % [yen, breakdown[yen]]}
#=>
74664 => 4
55998 => 3
37332 => 2
500 => 1
340 => 3
300 => 2
197 => 3
161 => 1
157 => 2
60 => 1
40 => 3

**デフォルトの名無しさん** · 2018/05/06(日) 19:32:00.34

}]] [[《_["[[]]" 〈[]》》 [][][]0,1》》〈〉 [] } } "B,V,0%%%,*1BVLO,SASA1`}}//%\\0,1\"VL"\

**デフォルトの名無しさん** · 2018/05/08(火) 21:21:59.59

お題：九九の各段の値を合計せよ
https://ideone.com/T3TrFG

**デフォルトの名無しさん** · 2018/05/08(火) 21:45:36.53

>>292

@9`*45

**デフォルトの名無しさん** · 2018/05/08(火) 21:54:00.37

はっ。それはもしや45の倍数・・・

おや？こんな夜中に誰だ？

**デフォルトの名無しさん** · 2018/05/08(火) 22:14:46.30

>>289
それって例えば初期配置が以下のとき(■が駒)
□■■□□■
□□■□■□
■■□■□■
□□■■□□
□■□■□□
■□■□□■
最初に例えばULが来ると以下のようになって…
■■■■■■
■■■■■□
■■■■□□
■□□□□□
□□□□□□
□□□□□□
□だけの行、□だけの列はこれからハブいてループ回せるじゃんってことだよね。この例だと下二行。
なるほど命令の最適化ばっかり考えてて全然気づかなかった。

**デフォルトの名無しさん** · 2018/05/08(火) 23:30:03.25

>>292 Squeak/Pharo Smalltalk

(1 to: 9) sum * (1 to: 9) "=> #(45 90 135 180 225 270 315 360 405) "

((1 to: 9) * (Array new: 9 withAll: (1 to: 9))) sum. "=> #(45 90 135 180 225 270 315 360 405) "

ついでに全段の合計も

((1 to: 9) sum * (1 to: 9)) sum. "=> 2025 "

((1 to: 9) * (Array new: 9 withAll: (1 to: 9))) sum sum. "=> 2025 "

(Matrix rows: 9 columns: 9 tabulate: [:x :y | x * y]) sum. "=> 2025 "

((1 to: 9) asArray +* (Matrix rows:1 columns: 9 contents: (1 to: 9))) sum. "=> 2025 "

**デフォルトの名無しさん** · 2018/05/08(火) 23:50:03.66

>>275
これの最適化したいんだけど誰か大きいボードのサンプルくれないかなあ

**デフォルトの名無しさん** · 2018/05/09(水) 00:00:50.01

激問って未だに更新されてるんだね

**デフォルトの名無しさん** · 2018/05/09(水) 00:58:06.52

>>296
Smalltalk なのに普通だ…いやtabulateが便利そう

J
格段の和
+/(*/[)>:i.9
45 90 135 180 225 270 315 360 405

さらに足すと
+/+/(*/[)>:i.9
2025

先に,で1次元化してから足せば1文字短く
+/,(*/[)>:i.9
2025

**デフォルトの名無しさん** · 2018/05/09(水) 01:51:50.10

>>297
すごくでかくなったので分けた。ごめんよjsfiddle...
board(1980x1080, 文字列の配列形式)
https://jsfiddle.net/eqyuvgm9/

actions(256)
https://jsfiddle.net/2j2817rc/

result(1980x1080, 文字列の配列形式)
https://jsfiddle.net/uyboko52/

このサンプルでchromeのコンソールで試した結果、
最適化なしでは47.4秒
命令の最適化だけで1.8秒になった
>>289も試してみようと思う

**デフォルトの名無しさん** · 2018/05/09(水) 01:56:38.20

>>292
Kotlin

(1..9).forEach { a -> println((1..9).map { it * a }.sum()) }

この1行をファイルに入れて kotlinc -script でファイルを指定するとスクリプトとして実行されて計算結果が出力される。

45
90
135
180
225
270
315
360
405

**デフォルトの名無しさん** · 2018/05/09(水) 03:24:50.65

>>292
C言語
https://ideone.com/nGbT40