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

**デフォルトの名無しさん** · 2020/07/14(火) 13:53:46.47

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

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

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

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

**869** · 2020/11/02(月) 20:41:57.79

>>825 octave
https://ideone.com/TknUHT
・残り文字数数える関数fがガバガバだったので修正

**デフォルトの名無しさん** · 2020/11/02(月) 20:50:30.27

>>882
Java
https://paiza.io/projects/k8RErATdGPNrkP2gRrOmSw

**デフォルトの名無しさん** · 2020/11/02(月) 20:55:38.75

>>882
実用的じゃん

**デフォルトの名無しさん** · 2020/11/02(月) 21:39:44.31

>>882 octave
https://ideone.com/un3EHy

**デフォルトの名無しさん** · 2020/11/02(月) 22:00:22.68

>>882 octave
https://ideone.com/kETWpz
・若干の変更

**デフォルトの名無しさん** · 2020/11/02(月) 22:02:25.78

>>875
消えろ

**デフォルトの名無しさん** · 2020/11/02(月) 22:12:37.48

>>882
Perl
https://paiza.io/projects/3i_gH0-CGf93OpsUWJzFVg

**デフォルトの名無しさん** · 2020/11/02(月) 23:19:41.46

>>882 JavaScript
const f=(x, y, l) => [x, y].map(i => (i * 2.54 * l / Math.sqrt(x ** 2 + y ** 2)).toFixed(1))
console.log(...f(16, 9, 40))
console.log(...f(64, 27, 29))
console.log(...f(3, 4, 10.2))

**デフォルトの名無しさん** · 2020/11/03(火) 00:18:12.81

>>882

Hadkell

cmpin =2.54
r10 = (/10).fromInteger.round.(*10)
toWH (x, y, sz) = let
arg = atan2 y x
diag = sz * cmpin
in ( r10 $ (cos arg) * diag , r10 $ (sin arg) * diag )

main = mapM_ ( print . toWH) [
(16, 9, 40),
(64,27,29),
(3,4, 10.2) ]

**デフォルトの名無しさん** · 2020/11/03(火) 01:33:31.56

お題
{1,2,3,4,5,6,7,8}
を幾つかの共通部分を持たない空でない集合にわけるやり方を完全列挙
例えば
{1,6}+{2,8}+{3,4,5,7}
と
{2,8}+{1,6}+{3,4,5,7}
は同じやり方になるので二重カウントしないこと

**デフォルトの名無しさん** · 2020/11/03(火) 02:32:26.13

>>892
[1..8]は流石にtoo large
haskell

import Data.List

parts [] = [ [ ] ]
parts [x] = [ [ [x] ] ]
parts ( x : xs ) = [ (x : ys) : zs |
ys <- subsequences xs,
zs <- parts $ xs \\ ys ]

main = do
print $ parts [2,3]
print $ parts [1,2,3]
print $ length $ parts [1..8]
----
[[[2],[3]],[[2,3]]]
[[[1],[2],[3]],[[1],[2,3]],[[1,2],[3]],[[1,3],[2]],[[1,2,3]]]
4140

**デフォルトの名無しさん** · 2020/11/03(火) 08:10:12.54

>>893
きれいだな

**デフォルトの名無しさん** · 2020/11/03(火) 09:07:39.02

A:={1,2,3,4,5,6,7,8};
A_1:={A};
A_2:={ {a,b} \subset 2^A | a+b=A,~a+~b=A };
A_3:={ {a,b,c} \subset 2^A | a+b+c=A,~a+~b+~c=A };
A_4:={ {a,b,c,d} \subset 2^A | a+b+c+d=A,~a+~b+~c+~d=A };
A_5:={ {a,b,c,d,e} \subset 2^A | a+b+c+d+e=A,~a+~b+~c+~d+~e=A };
A_6:={ {a,b,c,d,e,f} \subset 2^A | a+b+c+d+e+f=A,~a+~b+~c+~d+~e+~f=A };
A_7:={ {a,b,c,d,e,f,g} \subset 2^A | a+b+c+d+e+f+g=A,~a+~b+~c+~d+~e+~f+~g=A };
A_8:={ {a,b,c,d,e,f,g,h} \subset 2^A| a+b+c+d+e+f+g+h=A,~a+~b+~c+~d+~e+~f+~g+~h=A};
B:=A_1+A_2+A_3+A_4+A_5+A_6+A_7+A_8;
count[expand B];

1:{{1},{2},{3},{4},{5},{6},{7},{8}}
2:{{1},{2},{3},{4},{5},{6},{7,8}}
3:{{1},{2},{3},{4},{5},{7},{6,8}}
4:{{1},{2},{3},{4},{5},{8},{6,7}}
5:{{1},{2},{3},{4},{5},{6,7,8}}
6:{{1},{2},{3},{4},{6},{7},{5,8}}
7:{{1},{2},{3},{4},{6},{8},{5,7}}
8:{{1},{2},{3},{4},{6},{5,7,8}}
9:{{1},{2},{3},{4},{5,6},{7,8}}
10:{{1},{2},{3},{4},{7},{8},{5,6}}
11:{{1},{2},{3},{4},{7},{5,6,8}}
12:{{1},{2},{3},{4},{5,7},{6,8}}
...中略....
4135:{{2,7,8},{1,3,4,5,6}}
4136:{{3,7,8},{1,2,4,5,6}}
4137:{{4,7,8},{1,2,3,5,6}}
4138:{{5,7,8},{1,2,3,4,6}}
4139:{{6,7,8},{1,2,3,4,5}}
4140:{{1,2,3,4,5,6,7,8}}

**デフォルトの名無しさん** · 2020/11/03(火) 09:10:16.73

美しさだけなら某集合論用処理系に勝る
ものはないと思うが....
>>891の短時間回答能力とHaskelの潜在能力は
驚嘆すべきかも

**デフォルトの名無しさん** · 2020/11/03(火) 09:15:47.91

間違ってたときのコード貼ってしまったｗ
~a+~b=A
とかは要らなかったｗ
a+b=A
とかだけでよかった
a \cup bが普通の和集合ね。

**デフォルトの名無しさん** · 2020/11/03(火) 21:04:35.96

>>882 bat
:: 引数は整数限定。結果は少数第2位を四捨五入。0～0.04の時のみ少数第2位まで表示
:: 少し大き目の値を与えるとoverflow
@echo off &setlocal enabledelayedexpansion
set /a "x=%1*100, y=%2*100, z=0, d=%3*254, s=x*x+y*y, a=s>>1"
:WHILE
if %a% NEQ %z% set /a "z=a, a=(a+s/a)>>1" &goto :WHILE
set /a w=x*d/a, h=y*d/a
for %%G in (w h) do (
if !%%G:~-1! GEQ 5 set /a %%G+=10
if !%%G! GEQ 100 ( set %%G=!%%G:~0,-2!.!%%G:~-2,1!
) else if !%%G! GEQ 10 ( set %%G=0.!%%G:~-2,1!
) else if !%%G! GEQ 1 ( set %%G=0.0!%%G!
) else if !%%G! EQU 0 ( set %%G=0.00
) else echo ERROR: %%G=!%%G!
)
echo=%w% %h%

**デフォルトの名無しさん** · 2020/11/04(水) 00:20:20.72

>>882 Lua
function f(x, y, l)
local a =2.54 * l / (x * x + y * y)^0.5
return x * a , y * a
end
print(string.format("%.1f , %.1f", f(16, 9, 40)))
実行結果
88.6 , 49.8

**デフォルトの名無しさん** · 2020/11/04(水) 00:20:22.20

windows知らんけど
バッチ・ファイルすげぇなｗｗ

**デフォルトの名無しさん** · 2020/11/04(水) 20:24:03.31

>>892 Ruby
https://ideone.com/uEqDoX

**デフォルトの名無しさん** · 2020/11/05(木) 03:19:19.40

>>892
C++
https://ideone.com/YmUte9

**デフォルトの名無しさん** · 2020/11/05(木) 20:02:28.58

お題
'□'(正方形)と'＿'(空白)で表される図形を45度回転して描画せよ。

[例1]
□

／＼
＼／

[例2]
＿＿＿□
□□＿□
＿□□□

／＼
＼／＼
／＼／　／＼
＼／＼／＼／
　＼／＼／
　　＼／

**デフォルトの名無しさん** · 2020/11/05(木) 20:47:59.87

デカくなっててワロタ
良さげなお題

**デフォルトの名無しさん** · 2020/11/05(木) 23:31:16.69

>>903 html
<textarea style="transform:rotate(45deg)">
＿＿＿□
□□＿□
＿□□□
</textarea>

**デフォルトの名無しさん** · 2020/11/05(木) 23:39:12.30

>>905
すげぇな
今はCSSでこんなことまでできるのか

**デフォルトの名無しさん** · 2020/11/05(木) 23:40:00.35

:scale(2)もしとけ

**デフォルトの名無しさん** · 2020/11/06(金) 01:21:28.35

>>903
haskell
https://ideone.com/VwHiJD

**デフォルトの名無しさん** · 2020/11/06(金) 03:01:56.79

>>892
Java
https://paiza.io/projects/zGMV5xqRPjP1fxjo1Zu1Nw

**253** · 2020/11/06(金) 13:23:23.40

>>892 Perl5

use feature qw{current_sub say};
use Data::Dump 'dump';
@a = sub{
　my $l = pop;
　@_ ? ( map{
　　sub{
　　　map{
　　　　sub{
　　　　　sub{
　　　　　　push @{$_[$_]}, $l;
　　　　　　[@_]
　　　　　}->(map{[@$_]} @_);
　　　　}->(@_)
　　　} 0..@_
　　}->(@$_)
　} __SUB__->(@_) ) : [[$l]];
}->(1..8);
say dump @a;
say scalar @a;

実行結果
~ $ perl 18_892.pl
(
[[1 .. 8]],
[[1 .. 7], [8]],
… 中略
[[1], [2], [3], [4], [5], [6], [7, 8]],
[[1], [2], [3], [4], [5], [6], [7], [8]],
)
4140

**デフォルトの名無しさん** · 2020/11/06(金) 13:24:39.43

>>903
haskell
素直に内包表記使ったVer.
https://ideone.com/gA63Fi

**デフォルトの名無しさん** · 2020/11/07(土) 15:16:17.29

sed 's/□/◇/g'

あ、いや、なんでもないです。忘れてください。

**デフォルトの名無しさん** · 2020/11/07(土) 15:50:17.56

>>903 bat
@echo off &setlocal enabledelayedexpansion
if "%~1"=="" set "this=%~0" &"%~0" "□"
set /a n=0, Hmax=0
:GET_ARG
set "arg%n%=%~1"
set "arg%n%=!arg%n%:＿=0 !"
set "arg%n%=!arg%n%:□=1 !"
shift
if not "%~1"=="" set /a n+=1 &goto :GET_ARG
for /L %%i in (0,1,%n%) do ( set h=0
for %%b in (!arg%%i!) do set /a a[%%i;!h!]=%%b, h+=1
if !h! GTR !Hmax! set /a Hmax=h
)
set /a t=n+Hmax, Hmax-=1
for /L %%a in (0,1,%t%) do for /L %%b in (0,1,%t%) do set R[%%a;%%b]=0
for /L %%a in (0,1,%n%) do for /L %%b in (0,1,%Hmax%) do (
set /a A=%%a+%%b, B=a+1, C=n+%%b-%%a, D=c+1
set /a "R[!A!;!C!]|=a[%%a;%%b], R[!A!;!D!]|=a[%%a;%%b], R[!B!;!C!]|=a[%%a;%%b], R[!B!;!D!]|=a[%%a;%%b]"
REM orをxorに替えればアウトライン表示
)
:: for /L %%A in (0,1,%t%) do (for /L %%B in (0,1,%t%) do set "P%%A=!P%%A!!R[%%A;%%B]!") &echo !P%%A!
for /L %%A in (0,1,%t%) do (
for /L %%B in (0,1,%t%) do (
set /a "M=%%A+%%B, M%%=2"
if "!R[%%A;%%B]!"=="0" (set "S%%A=!S%%A!　") else if "!M!"=="0" (set "S%%A=!S%%A!／") else set "S%%A=!S%%A!＼"
)
echo=!S%%A!
)
endlocal
if not "%~0"=="＿□□□" "%this%" "＿＿＿□" "□□＿□" "＿□□□"
pause &exit /b

**デフォルトの名無しさん** · 2020/11/07(土) 19:47:28.12

バッチでやるとかいい根性してる

**デフォルトの名無しさん** · 2020/11/07(土) 21:06:37.63

>>903 Common Lisp
https://ideone.com/CMyiD0

**デフォルトの名無しさん** · 2020/11/07(土) 22:21:52.44

>>907
scale(1.41421356)でしょ

**デフォルトの名無しさん** · 2020/11/07(土) 23:04:28.88

>>892
ビット操作で直接作れた
https://paiza.io/projects/JwD_YC7dX2RRZz8G9ydnaA

**デフォルトの名無しさん** · 2020/11/08(日) 00:05:04.78

>>913
バッチファイル兄貴いいぞ
もっとやれ

**デフォルトの名無しさん** · 2020/11/08(日) 00:15:55.29

バッチよくやってるな
batにトランスパイルできるもっといい感じの構文の言語とかないの

**デフォルトの名無しさん** · 2020/11/08(日) 02:24:23.73

バッチで>>892やる猛者はいないのか？
QZならできそうだがだんまりか？

**デフォルトの名無しさん** · 2020/11/08(日) 02:34:25.46

>>917
このコードZen2までのAMDのCPUだと多分とんでもなく遅くなる
ここで使ってるpdep命令がintelのやZen3と比べて100倍以上遅いから

◆QZaw55cn4c · 2020/11/08(日) 03:02:51.65

>>920
私は C しか書けません

**デフォルトの名無しさん** · 2020/11/08(日) 03:56:26.07

>>919
こんなのならあった
https://github.com/imachug/BatchBuilder

moduleサポート：
export say_hello
echo Hello, %1!
end export
でエクスポート
import say_hello Takashi
でインポート（というかecho Hello, Takashi!に置き換わる）

値返却 (return) サポート：
export ask q
set /p result=%q%?
return %result%
end export

export delete_dir
import -> agree ask "Delete %1"
if "%agree%" == "yes" (
rmdir /S /Q %1
)
end export

globalキーワード：
module内の変数はデフォでlocal。
global変数にしたいときはglobalキーワードを使う。
global my_var=hogehoge

**デフォルトの名無しさん** · 2020/11/08(日) 03:57:27.82

>>923 の続き

再帰サポートのための２つのディレクティブ：
@safe_recursion
@follow_local

クラスとオブジェクト：
クラス作成
class ClassTest
export say_hello
echo Hello, %1!
end export
export say_bye
echo Bye, %1!
end export
end class

オブジェクト生成
new -> my_class ClassTest

メソッド呼び出し
import %my_class%.say_hello Takashi
import %my_class%.say_bye Takashi

他、クラスフィールドやマジックメソッドなど

**デフォルトの名無しさん** · 2020/11/08(日) 04:20:05.05

>>919
もうひとつ。
https://github.com/kerrgavin/Transpiler-DSL-to-Windows-Batch-Script

>>923 がbatの拡張といったおもむきなのに対して、こちらは専用DSLからのトランスパイラ。Python製。

二値の平均：
avg(arg1, arg2, average)
fun avg {
num a = larg1 + larg2
num a = a/2
"echo" a
}
以下にトランスパイルされる
@echo off
SETLOCAL ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION
call :avg %1,%2,%average%
@EXIT /B 0
:avg
set /a a=%~1 + %~2
set /a a=%a% / 2
echo %a%
EXIT /B 0

0から9999まで表示：
for (num i = 0;i < 10000;i+1){
"echo" i
}
トランスパイル結果略

**デフォルトの名無しさん** · 2020/11/08(日) 05:03:48.08

>>919
シェルスクリプトからの変換系：
https://github.com/daniel-sc/bash-shell-to-bat-converter
https://github.com/sagiegurari/shell2batch

あと専用言語からのトランスパイル系でもうひとつ凄いのがあった。
https://github.com/batsh-dev-team/Batsh
タイプ的には >>925 と同じような感じなんだけどbatにもシェルスクリプトにもコンパイルできる。
こっちは凄いねスター4,000超えてるわ。
なんでこれが最初に見つからんのや…
プレイグラウンド（ https://batsh.org/ ）もあってサンプルロード・コンパイルもできるから試してみて。
文法はオーソドックスなC系ですね。

**デフォルトの名無しさん** · 2020/11/08(日) 05:16:53.07

>>926
moongiftに紹介記事があった。
https://www.moongift.jp/2019/08/batsh-bashbatchのスクリプトを生成するプログラミング言語/
…そしてアドレスバー見たら既にお気に入りに登録されていた…

**デフォルトの名無しさん** · 2020/11/08(日) 08:18:54.23

>>926
これきれいだな

**デフォルトの名無しさん** · 2020/11/09(月) 23:19:00.95

もうすぐポッキーの日
[お題] 人口合計でオール１

URLのページに都道府県別の人口が載っている。
　今回使用するのは、2019/10のデータ
　https://ideone.com/R4PCiQ

　同じ県は一回のみで、異なる県を何県でも選んでよい。
　(つまり選び方は全部で 2^47 種類)
　人口合計が"1"のみの数字となる選び方は何種類あるか？
　(実質、1111万1111人, 1億1111万1111人になる選び方)

※一発正解問題、実行時間3秒程度。
　同ページの他の年月人口でも計算できる程度のクオリティでok
※ちなみに 2015/10データだと916(40+876)種類だった。

**デフォルトの名無しさん** · 2020/11/09(月) 23:52:24.94

11111111 は43?
111111111はオンラインコンパイラでタイムアウトorz

**デフォルトの名無しさん** · 2020/11/10(火) 00:38:20.57

面白そうなお題

**デフォルトの名無しさん** · 2020/11/10(火) 00:38:46.30

111111111 は650かな？

**デフォルトの名無しさん** · 2020/11/10(火) 00:45:23.62

とりあえず
Haskell

spp19 = (小さいもの順に並べた元データ)

findSum :: Int -> [Int] -> Int
findSum x ys = case ys of
[] -> 0
( z : zs ) | z > x -> 0
( z : zs ) | z == x -> 1
( z : zs ) | otherwise ->
( findSum x zs )
+ ( findSum ( x - z ) zs )

main = do
print $ findSum 15105031 spp19
print $ findSum 11111111 spp19

----
650
43

**デフォルトの名無しさん** · 2020/11/10(火) 02:25:54.45

batｺｰｲ!!

**デフォルトの名無しさん** · 2020/11/10(火) 02:49:15.00

>>929
https://ideone.com/8nuT5d
力任せなコードだけどどうにか時間内に終わった

**デフォルトの名無しさん** · 2020/11/10(火) 13:44:24.83

典型的なdp問題じゃねえの

**929** · 2020/11/10(火) 17:29:30.75

>>929

・想定解はDPの数え上げ
　さすがに1.1億×47は苦しいので、
　1.1億に関しては、(全人口 - 1.1億)で計算する。
　そうすれば、1600万×47の計算量で済む。
　
　https://ideone.com/R4PCiQ
　　下にpython(numpy)で想定解追加

**253** · 2020/11/11(水) 00:47:47.87

(´･ω･`)

**デフォルトの名無しさん** · 2020/11/11(水) 18:19:57.16

暇つぶしに>>933がどれくらい再帰呼び出し読んでるか数えてもらった

findSum' x ys = let ( z : zs ) = ys in case ys of
[ ] -> 0
_ | z >= x -> 0
otherwise -> ( findSum' x zs ) + ( findSum' ( x - z ) zs ) + 2
----
2021619696
20億回ちょい
dpだと15,105,031×47=709,936,457で7億回ちょいだから35%ほどになるのか
勉強になった

**デフォルトの名無しさん** · 2020/11/12(木) 15:39:00.87

お題1
1～nまでの偶数をランダムに出力してください

お題2
[開始の数] [増分] [終了の数]を入力として受け取りランダムに出力してください

例
入力: 1 2 10
出力:
1
1
3
9
1
7
5

**デフォルトの名無しさん** · 2020/11/12(木) 15:58:04.88

>>940 を読んで、やっぱり日本語は非論理的な言語だな、と思った。

**デフォルトの名無しさん** · 2020/11/12(木) 16:04:34.29

書き手の問題だと思うよ

**デフォルトの名無しさん** · 2020/11/12(木) 18:42:17.55

オレは深まりゆく秋を感じた

**デフォルトの名無しさん** · 2020/11/12(木) 19:26:25.71

ふーけゆくー秋の夜ー

**デフォルトの名無しさん** · 2020/11/12(木) 19:34:08.43

>>940 Ruby

p rand(2..$_.to_i) & -2 # => 32 while gets

-*- input -*-
2
10
100

-*- output -*-
2
6
78

p eval$_.gsub(/\s+/,'%s')%%w[.step(*[ , ].rotate).to_a.sample]while gets

-*- input -*-
1 2 10
1 2 10
10 5 99

-*- output -*-
7
1
85

**デフォルトの名無しさん** · 2020/11/12(木) 23:53:28.13

そゆいみか
入力パースするとこは略して

Haskell

import System.Random
import Control.Monad

randomABC a b c = let
r = [ a, a+b .. c ]
in ( r !! ) <$> ( randomRIO ( 0, length r - 1 ) :: IO Int )

main = do
print =<< ( replicateM 20 $ randomABC 1 2 10 )
print =<< ( replicateM 20 $ randomABC 5 7 40 )
----
[1,1,9,7,9,7,7,9,7,5,7,7,7,3,7,1,5,9,5,7]
[33,26,26,26,12,19,40,40,12,33,19,26,19,26,26,33,19,5,5,33]

**デフォルトの名無しさん** · 2020/11/13(金) 20:43:02.05

>>940 bat
@echo off &setlocal
set /a n=8 &REM 出力個数
echo -3 9
for /L %%i in (1,1,%n%) do call :RAND_A2B -3 9
echo=&echo 3 -5
for /L %%i in (1,1,%n%) do call :RAND_A2B 3 -5
echo=&echo 4 4
for /L %%i in (1,1,%n%) do call :RAND_A2B 4 4
echo=&echo -5 2 2
for /L %%i in (1,1,%n%) do call :RAND_SiE -5 2 2
echo=&echo 2 -3 -12
for /L %%i in (1,1,%n%) do call :RAND_SiE 2 -3 -12
echo=&echo 2 3 -4
for /L %%i in (1,1,%n%) do call :RAND_SiE 2 3 -4
pause &exit /b
:: 1～n間の偶数をrandom出力 => a～b間の偶数をrandom出力
:RAND_A2B
setlocal
set /a "f=%1&1"
if %1 EQU %2 ( if %f% EQU 0 echo %1) &exit /b
if %1 LSS %2 set /a a=%1+1, b=%2
if %1 GTR %2 set /a a=%2+1, b=%1
set /a "c=b-a+1, r=((%random%<<15)+%random%)%%c+a, r&=~1"
echo %r%&exit /b
:: [開始の数] [増分] [終了の数] を引数として条件を満たす値をrandom出力
:RAND_SiE
setlocal
if %2 NEQ 0 ( set /a "a=(%3-%1)/%2" ) else set /a a=0
if %a% LSS 0 set /a a=0
set /a "r=%random%%%(a+1)*%2+%1"
echo %r%&exit /b

**デフォルトの名無しさん** · 2020/11/13(金) 22:58:48.40

オンラインでbat動かせるサイトない？
>>947試して見たいんやけど

**デフォルトの名無しさん** · 2020/11/13(金) 23:20:18.52

bat兄貴天才やな

**デフォルトの名無しさん** · 2020/11/14(土) 00:46:02.44

>>948
それをお題にするのはありかも
947を読んで同じ動きをするプログラムを書け、とかね

**デフォルトの名無しさん** · 2020/11/14(土) 06:23:08.91

過疎るのもわかるわ

**デフォルトの名無しさん** · 2020/11/15(日) 04:26:34.92

>>940
Java
https://paiza.io/projects/IUNanoZeum1nhkVUBUqXZA

**デフォルトの名無しさん** · 2020/11/15(日) 18:33:50.31

お題
天気のデータを読み取って翌日の天気は前日と同じと予測しそれが当たる確率を求めてください

入力: 曇,晴,曇,曇,晴,曇,曇,雨,雨,雨,曇,曇,晴,曇,雨,曇,雨,曇,曇,曇,晴,曇,雨,晴,晴,晴,晴,曇,晴,曇,晴

**デフォルトの名無しさん** · 2020/11/15(日) 18:40:06.62

>>953 Ruby

gets.split(?,).each_cons(2).tap{|a| p 1.0 * a.count{|b| !b.uniq[1]}/ a.size}

# => 0.3333333333333333

**デフォルトの名無しさん** · 2020/11/15(日) 18:41:22.95

はやいな

**デフォルトの名無しさん** · 2020/11/15(日) 20:20:51.56

>>953 JavaScript
let hits = 0
const input = '曇,晴,曇,曇,晴,曇,曇,雨,雨,雨,曇,曇,晴,曇,雨,曇,雨,曇,曇,曇,晴,曇,雨,晴,晴,晴,晴,曇,晴,曇,晴'.split `,`
input.reduce((acc, v) => (hits += acc == v ? 1 : 0, v))
console.log(hits / (input.length - 1))
//=> 0.3333333333333333

**デフォルトの名無しさん** · 2020/11/15(日) 20:22:58.52

>>956
.split(`,`) では

**デフォルトの名無しさん** · 2020/11/15(日) 20:23:55.05

すまん。バッククウォートだった。

**デフォルトの名無しさん** · 2020/11/16(月) 00:51:51.08

>>947
@echo off &setlocal enabledelayedexpansion
for /f "delims=:" %%A in ('findstr /en ARGS "%~0"') do set /a L=%%A, n=12 &REM nは出力個数
for /f "usebackq skip=%L% delims=" %%A in ("%~0") do set "i="&(for %%B in (%%A) do set /a i+=1)&echo %%A&set "S="&(for /L %%D in (1,1,%n%) do call :RAND!i! %%A&(if defined r set "S=!S! !r!" &set "r="))&echo=!S!&echo=
set /p<nul=終了&pause >nul &exit /b

:: a～b間の偶数をrandom出力
:RAND2
setlocal &REM VAR= a b c r f
if %1 NEQ %2 ((if %1 LSS %2 (set /a a=%1+1, b=%2) else set /a a=%2+1, b=%1) &set /a "c=b-a+1, r=((%random%<<15)+%random%)%%c+a, r&=~1") else set /a "f=%1&1" &if !f! EQU 0 set r=%1
endlocal &set "r=%r%" &exit /b

:: [開始の数] [増分] [終了の数] を引数として条件を満たす値をrandom出力
:RAND3
setlocal &REM VAR= a r
if %2 NEQ 0 set /a "a=(%3-%1)/%2" &if !a! LSS 0 set "a=" &REM [ else set "a="] 省略:上位環境でaが使用されている場合には必要
set /a "r=((%random%<<15)+%random%)%%(a+1)*%2+%1" &REM set /aでは存在しない変数は0として扱われる
endlocal &set "r=%r%" &exit /b
:: ARGS
-3 9
3 -5
4 4
5 5
1 0 2
-5 2 2
2 -3 -12
2 3 -4
-256 040 0x100
0400 ~0x1F ~0xff

**デフォルトの名無しさん** · 2020/11/16(月) 03:31:51.13

>>954
haskell

import Data.List

str = "曇,晴,曇,曇,晴,曇,曇,雨,雨,雨,曇,曇,晴,曇,雨,曇,雨,曇,曇,曇,晴,曇,雨,晴,晴,晴,晴,曇,晴,曇,晴"

accuracy x = let
pairs = id
. map ( take 2 . reverse ) -- [ "BA", "CB", "DC",..]
. drop 2 -- [ "AB", "ABC",..]
. inits -- [ "", "A", "AB",..]
. filter ( /= ',' ) -- "ABCD.."
$ x
successes = filter ( \x -> head x == last x ) pairs
nP = genericLength pairs
nS = genericLength successes
in nS / nP

main = print $ accuracy str

**デフォルトの名無しさん** · 2020/11/16(月) 03:32:04.47

>>953 bat
@echo off &setlocal enabledelayedexpansion
set /a i=-1, match=0
for %%A in (曇,晴,曇,曇,晴,曇,曇,雨,雨,雨,曇,曇,晴,曇,雨,曇,雨,曇,曇,曇,晴,曇,雨,晴,晴,晴,晴,曇,晴,曇,晴) do (
set /a i+=1
if "!S!"=="%%A" set /a match+=1
set s=%%A
)
:: echo 一致数/比較回数 : %match%/%i%
set /a a=match, b=i
:EUCLID_GCD
if %a% NEQ 0 set /a "c=a, a=b%%a, b=c" &goto :EUCLID_GCD
set /a match/=b, i/=b
if %match% NEQ 0 (echo 確率 : %match%/%i%) else echo 確率 : 0
pause

**デフォルトの名無しさん** · 2020/11/20(金) 19:52:50.75

>>940
Kotlin
https://paiza.io/projects/AeE4_7EmFluzVxuefBJmDw

**とくめい** · 2020/11/24(火) 01:34:45.23

kakeruyamasato@gmail.comこのメアドを悪用してみせて

**デフォルトの名無しさん** · 2020/11/24(火) 08:07:25.33

通報しますた

**デフォルトの名無しさん** · 2020/11/25(水) 01:49:24.25

>>953
Kotlin
https://paiza.io/projects/-bhKDI048mc0kOJzIFqOHA

**デフォルトの名無しさん** · 2020/11/26(木) 19:02:45.00

>>940
a,b,c = [1,2,10]
puts ((a..c) % b).to_a.shuffle

**デフォルトの名無しさん** · 2020/11/27(金) 01:08:20.91

>>966
なんていう言語?

**デフォルトの名無しさん** · 2020/11/27(金) 02:57:17.73

>>967
rubyでしょ

**デフォルトの名無しさん** · 2020/11/27(金) 19:31:40.66

rubyだったか。

**デフォルトの名無しさん** · 2020/11/28(土) 00:37:28.60

%がわからないって怒られた

**デフォルトの名無しさん** · 2020/11/28(土) 07:20:49.13

お題
以下を表示する
Monday
Tuesday
Wednesday
Thursday
Friday
Saturday
Sunday

**デフォルトの名無しさん** · 2020/11/28(土) 07:34:45.42

>>971 bat
@echo.以下を表示する
@echo.Monday
@echo.Tuesday
@echo.Wednesday
@echo.Thursday
@echo.Friday
@echo.Saturday
@echo.Sunday

**デフォルトの名無しさん** · 2020/11/28(土) 08:05:44.72

意外と難しいな

**デフォルトの名無しさん** · 2020/11/28(土) 08:40:11.81

>>971 Ruby

puts Date::DAYNAMES.rotate

# => Monday
Tuesday
Wednesday
Thursday
Friday
Saturday
Sunday

**デフォルトの名無しさん** · 2020/11/28(土) 09:00:26.43

>>966
問題の解釈違わねえ？

**デフォルトの名無しさん** · 2020/11/28(土) 09:12:26.58

>>971 js
const range = v => [...Array(v).keys()]
const DAY_MS = 24 * 60 * 60 * 1000

const weekday = d => d.toLocaleString('en', { weekday: 'long' })

console.log(range(7).map(i => weekday(new Date((i + 4) * 24 * 60 * 60 * 1000))).join("\n"))

**デフォルトの名無しさん** · 2020/11/28(土) 11:36:22.72

>>970
( 1..10 ) % 2

range に、% というメソッドは無い！

**デフォルトの名無しさん** · 2020/11/28(土) 12:27:13.39

>>977
NEWS for Ruby 2.6.0
2.5.0 以降の変更
https://docs.ruby-lang.org/ja/2.6.0/doc/news=2f2_6_0.html
> Range
> 新規メソッド
> Range#% が追加されました。 [feature#14697]

**デフォルトの名無しさん** · 2020/11/28(土) 12:38:57.57

予想通りの流れになってくれて何より

**977** · 2020/11/28(土) 14:12:40.28

ruby -e 'p ( ( 1..5 ) % 2 ).to_a'
#=> [1, 3, 5]

2 は、各ステップの大きさ

**デフォルトの名無しさん** · 2020/11/28(土) 16:09:49.88

ダメだ
オンラインでRuby 2.6使えるとこ見つからない
どっかない？

**デフォルトの名無しさん** · 2020/11/28(土) 16:34:18.46

>>981
ruby 2.6.5p114 (2019-10-01 revision 67812) [x86_64-linux]
https://www.jdoodle.com/execute-ruby-online/

ruby 2.7.0p0 (2019-12-25 revision 647ee6f091) [x86_64-linux]
https://techiedelight.com/compiler/

ruby 2.7.1p83 (2020-03-31 revision a0c7c23c9c) [x86_64-linux]
https://paiza.io/en/projects/new?language=ruby