プログラミングのお題スレ 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/

**デフォルトの名無しさん** · 2020/10/02(金) 20:54:50.29

カーブやシュートも再現しろよ

**253** · 2020/10/02(金) 21:41:56.95

>>610

─┼─┐─┼─　／　 ,.　　　　　　　　　　｀ﾞ''‐､_＼　| / ／
　 │　 │─┼─／| _,.イ,,.ィ'　　　─────‐‐‐　 *　 ←>>蟻人間
　 │　　|ツ　│　　 |　　| 　| イン　/´⌒｀ヽ　　　　／/ | ＼
　　　　　　　　　　　　　　　　　　　 {,　　　ﾘ）　　／ ./　|　　＼
　　　　　　　　　　　　　　　＿＿／}从、　ﾘ（　／　 / 　|
　　　　　　,.　,. -‐=＝=‐- `つ／ ,.ｲ ’^ｿﾊﾉﾘ　　　/ ∵|：・.
　　　　〃〃〃〃　　　　　／／ﾐノ__　　/´　　　/∴・|∵’
ヽ_I__I__I__I__I_I 　　　　__ノ_／／　　　ヽﾐ､､　 .∵.；|∵’:;
ｰ{＿＿＿＿,,二二二ニ) ﾉΘ（＿＿　　)　　ﾞ、∵.；|∵’,
　/I　I　I I　I I　　　　 .^^^' 　＼ !　￣ﾌ　　　　ﾞ、 |∴
　　　　　　　　　　　　　　　　　　ｿ　　/　　　　　　`
　　　　　　　　　　　　　　　　　ノ⌒ヽ')
　　　　　　　　　　　　　　　　／　ノ/ /
　　　　　　　　　　　　　　 /＼／ ∧/　　 /　　　　　 ',
　　　　　　　　　　　　　 /　／　ﾉ./ 　　./　　　　　　 ',
　　　　　　　　　　　　ノ／　　ﾍ__、　./　/￣￣￣ヽ .',
　　　　　　　　　　　　ﾍ_'_，　　　　　/　　＼　　　／　 ',
　　　　　　　　　　　　　　　　　　　　 /　　　　＼／　　　 ',
　　　　　　　　　　　ﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞ　　　　　　　　　　　　　ﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞ

**デフォルトの名無しさん** · 2020/10/02(金) 21:46:15.88

ナイス

**デフォルトの名無しさん** · 2020/10/02(金) 22:04:39.76

>>612
くっそワロタ

**253** · 2020/10/03(土) 01:10:19.52

>>605 Perl5

use feature qw{signatures say}; no warnings 'experimental';
sub A($m, $n, $l, $r) {
　say "${l}A($m, $n)$r";
　$m ? $n
　　? A($m-1, A($m, $n-1, "${l}A(".($m-1).', ', ")$r"), "${l}A(".$m.', ', ")$r")
　　: A($m-1, 1, "${l}A(".($m-1).', ', ")$r") : $n + 1;
}
say A(2, 1, '', '');

実行結果
~ $ perl 18_605_Ackermann_func.pl
A(2, 1)
A(1, A(2, 0))
A(1, A(1, A(1, 1)))
A(1, A(1, A(0, A(1, 0))))
A(1, A(1, A(0, A(0, A(0, 1)))))
A(1, A(1, A(1, A(0, 2))))
A(2, A(1, 3))
A(2, A(0, A(1, 2)))
A(2, A(0, A(0, A(1, 1))))
A(2, A(0, A(0, A(0, A(1, 0)))))
A(2, A(0, A(0, A(0, A(0, A(0, 1))))))
A(2, A(0, A(0, A(1, A(0, 2)))))
A(2, A(0, A(1, A(0, 3))))
A(2, A(1, A(0, 4)))
5

**253** · 2020/10/03(土) 01:13:51.37

なんかBugってる…orz

**デフォルトの名無しさん** · 2020/10/03(土) 12:07:42.48

>>605 perl5
https://ideone.com/pRMAjA
s///e でいける

**デフォルトの名無しさん** · 2020/10/03(土) 12:20:08.70

perlの正規表現マジック恐ろしや

**デフォルトの名無しさん** · 2020/10/03(土) 12:37:17.41

>>617
すげえな
ほとんどワンライナーだ

**デフォルトの名無しさん** · 2020/10/03(土) 12:46:20.34

そうなのよね
入力もらって表示→ワンステップだけ展開して戻る
の繰り返しが1番楽なんだけどなぁ

**253** · 2020/10/03(土) 14:01:25.06

>>605 Perl5、>>615 を修正。 >>617 あら正規表現で書けちゃうのかｲﾅ…
use feature qw{signatures say}; no warnings 'experimental';
sub A($m, $n) {
　$m ? $n
　　? do{ my ($m2, $n2) = ($m-1, $n-1);
　　　　　push @$l, "A($m2, "; push @$r, ')';
　　　　　say @$l, "A($m, $n2)", @$r; A($m2, A($m, $n2)) }
　　: do{ my ($m2, $n2) = ($m-1, 1);
　　　　　say @$l, "A($m2, $n2)", @$r; A($m2, $n2)}
　　: do{ my $s = $n + 1; say @$l, $s, @$r; pop @$l; pop @$r; $s };
}
($m, $n) = (2, 1);
say "A($m, $n)";
A($m, $n);

実行結果
$ perl 18_605_Ackermann_func.pl
A(2, 1)
A(1, A(2, 0))
A(1, A(1, 1))
A(1, A(0, A(1, 0)))
A(1, A(0, A(0, 1)))
A(1, A(0, 2))
A(1, 3)
A(0, A(1, 2))
A(0, A(0, A(1, 1)))
A(0, A(0, A(0, A(1, 0))))
A(0, A(0, A(0, A(0, 1))))
A(0, A(0, A(0, 2)))
A(0, A(0, 3))
A(0, 4)
5

**デフォルトの名無しさん** · 2020/10/03(土) 18:00:38.18

>>605 ocaml
https://ideone.com/dqTO60
let (>>) f g x = g (f x)
let rec a m n p =
let () = p (Printf.sprintf "A(%d, %d)" m n) in
if m = 0 then n + 1
else if n = 0 then a (m - 1) 1 p
else a (m - 1) (a m (n - 1) (Printf.sprintf "A(%d, %s)" (m - 1) >> p)) p
let () = print_int (a 2 1 print_endline)
↓
A(2, 1)
A(1, A(2, 0))
A(1, A(1, 1))
A(1, A(0, A(1, 0)))
A(1, A(0, A(0, 1)))
A(1, A(0, 2))
A(1, 3)
A(0, A(1, 2))
A(0, A(0, A(1, 1)))
A(0, A(0, A(0, A(1, 0))))
A(0, A(0, A(0, A(0, 1))))
A(0, A(0, A(0, 2)))
A(0, A(0, 3))
A(0, 4)
5

**デフォルトの名無しさん** · 2020/10/07(水) 20:33:26.90

>>605 octave
https://ideone.com/50i12U
function c = a(m, n, p)
p(sprintf('A(%d, %d)', m, n));
if m == 0
c = n + 1;
elseif n == 0
c = a(m - 1, 1, p);
else
c = a(m - 1, a(m, n - 1, @(s) p(sprintf('A(%d, %s)', m - 1, s))), p);
end
end
disp(a(2, 1, @disp));

**253** · 2020/10/08(木) 02:27:24.66

藻前ら、なかなかやるなー
気に入った。

**蟻人間** ◆T6xkBnTXz7B0 · 2020/10/08(木) 13:59:34.65

お題: ax**2+b*x+c==0という形の二次方程式を解き、全ての実数解と実数解の個数を表示する。

**デフォルトの名無しさん** · 2020/10/08(木) 15:03:23.36

実数解はルートを含んだ形でいいのか?
あるいは小数点以下何桁まで正確に求めるのか?

**蟻人間** ◆T6xkBnTXz7B0 · 2020/10/08(木) 15:04:48.84

>>626
浮動小数点数でいいよ。

**デフォルトの名無しさん** · 2020/10/08(木) 21:36:29.64

>>624
∧＿∧　　／￣￣￣￣￣
（　´∀｀）＜　オマエモナー
（　　　　）　＼＿＿＿＿＿
｜｜　|
（_＿）＿）

**蟻人間** ◆T6xkBnTXz7B0 · 2020/10/09(金) 13:26:20.64

お題：計算ができる文章テンプレートを実装し、つるかめ算を自動生成せよ。

文章テンプレートの例：
「ツルとカメが合わせて{$(ツルの数)+$(カメの数)}います。
足の合計本数が{$(ツルの数)*2+$(カメの数)*4}本です。
カメは何匹いますか。」

変数は「$(変数名)」のように表し、その具体的な値は入力として与えられる。
計算式は{ }で囲って表す。
計算式は変数や定数、加減乗除の演算子、または丸カッコを含むことができる。

入力の例：「ツルの数=3, カメの数=4」

**デフォルトの名無しさん** · 2020/10/09(金) 14:02:14.80

>>625 js
function quadraticWithCount(a, b, c) {
const inSqrt = b ** 2 - 4 * a * c
if (inSqrt < 0) return [[], 0]
const l = - b / (a * 2)
if (inSqrt === 0) return [[l], 1]
const r = Math.sqrt(inSqrt) / (a * 2)
return [[l - r, l + r], 2]
}

console.log(quadraticWithCount(3, -2, -1))
console.log(quadraticWithCount(3, 6, 3))
console.log(quadraticWithCount(1, 2, 3))

// [ [ -0.3333333333333333, 1 ], 2 ]
// [ [ -1 ], 1 ]
// [ [], 0 ]

**蟻人間** ◆T6xkBnTXz7B0 · 2020/10/09(金) 14:14:06.07

>>629
追記: パーサーを作れない人はevalを用いても構わない。

**デフォルトの名無しさん** · 2020/10/09(金) 14:14:59.57

>>625 js 改善
function quadratic(a, b, c) {
const rt = Math.sqrt(b ** 2 - 4 * a * c)
return [(-b + rt) / (2 * a), (-b - rt) / (2 * a)]
}

function quadraticReal(...abc) {
const ans = quadratic(...abc)
const [a1, a2] = ans
if (isNaN(a1)) return []
if (a1 === a2) return [a1]
return ans
}

const quadraticRealWithCount = (...abc) => addCount(quadraticReal(...abc))

const addCount = a => [a, a.length]

console.log(quadraticRealWithCount(3, -2, -1))
// [ [ 1, -0.3333333333333333 ], 2 ]
console.log(quadraticRealWithCount(3, 6, 3))
// [ [ -1 ], 1 ]
console.log(quadraticRealWithCount(1, 2, 3))
// [ [], 0 ]

**デフォルトの名無しさん** · 2020/10/09(金) 17:52:52.10

>>629 Ruby
ツルの数 = 3
カメの数 = 4
Template =<<_EOT_
「ツルとカメが合わせて{$(ツルの数)+$(カメの数)}います。
足の合計本数が{$(ツルの数)*2+$(カメの数)*4}本です。
カメは何匹いますか。」
_EOT_

puts Template.gsub( /\{(.*?)\}/ ){ eval $1.gsub( /\$$(.*?)$/ ){ $1 } }

**253** · 2020/10/09(金) 22:43:14.04

>>629 Perl5

use utf8;
no warnings 'utf8';
$ツルの数 = 3;
$カメの数 = 4;
print <<EOF
「ツルとカメが合わせて@{[${ツルの数}+${カメの数}]}います。
足の合計本数が@{[${ツルの数}*2+${カメの数}*4]}本です。
カメは何匹いますか。」
EOF

実行結果
~ $ perl 18_633_ツルの数+カメの数.pl
「ツルとカメが合わせて7います。
足の合計本数が22本です。
カメは何匹いますか。」

**蟻人間** ◆T6xkBnTXz7B0 · 2020/10/09(金) 23:14:45.18

お題: ２つのRGBカラーが#RRGGBB形式で与えられる（RRGGBBは六桁の十六進数とする）。
２つの中間色を#RRGGBB形式で出力せよ。
可能ならばこれら３つの色をカラーバーとして表示せよ。

**蟻人間** ◆T6xkBnTXz7B0 · 2020/10/09(金) 23:26:06.11

>>635
入力例1: #112233, #99AAFF
入力例2: #AD03ff, #a39e75

**デフォルトの名無しさん** · 2020/10/09(金) 23:55:14.23

>>635,636
自明な入力例だけを示しても、出力例も出さないと意味ないだろう。
2色の中間色ってのが曖昧じゃね？
単にR,G,Bそれぞれの平均を取るだけなのか、赤と紫の中間が赤紫になるように循環する色相で中間をとるのかとか。

**デフォルトの名無しさん** · 2020/10/10(土) 02:56:37.74

問題が玉石混合だなぁ

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

>>634
>変数は「$(変数名)」のように表し、

**デフォルトの名無しさん** · 2020/10/10(土) 07:45:17.48

お題: 20201010と出力してください。ただしコードに使っていい数字は1のみです。

**デフォルトの名無しさん** · 2020/10/10(土) 08:25:49.31

>>640 python

a=1;b=a+a;c=a-a
print(b,c,b,c,a,c,a,c,sep='')
#出力20201010

**デフォルトの名無しさん** · 2020/10/10(土) 10:53:30.16

>>640 自分で js
const t = `
`.charCodeAt()
console.log(t + t + "" + (t + t) + t + t)

const m = "ϲ".charCodeAt()
console.log(m + m + "" + m)

**デフォルトの名無しさん** · 2020/10/10(土) 12:06:27.17

>>640
js本日限定
new Date().toLocaleDateString().split(/-|\//).join``
//=> "20201010"

**デフォルトの名無しさん** · 2020/10/10(土) 14:54:47.61

>>638
×こんごう
○こんこう

**デフォルトの名無しさん** · 2020/10/10(土) 14:57:00.84

>>640
Java
https://paiza.io/projects/8QZuxNJ_iMGrfafT8HlLGw

**デフォルトの名無しさん** · 2020/10/10(土) 15:40:40.94

>>645
012にOIZ使うのセンスある

**デフォルトの名無しさん** · 2020/10/10(土) 18:37:22.80

>>640 C
https://ideone.com/5BGavX

**デフォルトの名無しさん** · 2020/10/10(土) 18:54:45.98

>>647
Windowsでもそのままでいけるのか？

**蟻人間** ◆T6xkBnTXz7B0 · 2020/10/10(土) 19:24:31.52

お題: 振動数1000Hzの音を１秒間発振せよ。

**デフォルトの名無しさん** · 2020/10/10(土) 19:32:24.80

>>640 c
https://ideone.com/DbqsXs

**デフォルトの名無しさん** · 2020/10/10(土) 19:46:18.01

haskell

import Data.Maybe
main = print $ product $ map ((fromJust).(flip lookup (zip ['\t'..] [1..]))) "&myC"

**デフォルトの名無しさん** · 2020/10/10(土) 21:44:48.33

>>649 js
var ctx = new window.AudioContext
var osc = ctx.createOscillator()
osc.type = 'sine'
osc.frequency.value = 1000
osc.connect(ctx.destination)
osc.start()
osc.stop(1)

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

>>640
haskell 改良

unicode = length . tail . (enumFromTo minBound)
main = print $ product $ map unicode "ാᝇ"

**デフォルトの名無しさん** · 2020/10/10(土) 23:18:40.46

>>635
Java
https://paiza.io/projects/taHgDigIq_C5KjS66xaCfQ
https://dotup.org/uploda/dotup.org2277678.png

**デフォルトの名無しさん** · 2020/10/11(日) 00:16:06.04

>>640 JavaScript
[1+1,1-1,1+1,1-1,1,1-1,1,1-1].reduce((acc,n)=>acc+n,'')

**デフォルトの名無しさん** · 2020/10/11(日) 01:54:01.50

>>605
Java
https://paiza.io/projects/IVaRnsx6lYLlO1CcbniO-Q

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

>>640 J
smoutput ,&":/ 'amp' i. 'papamama'

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

>>640 bash
aa=1; bb=$((aa-aa)); cc=$aa$bb$aa$bb; printf "%d" $((cc+cc)) $cc; echo

**デフォルトの名無しさん** · 2020/10/11(日) 17:59:24.67

>>629
Perl
https://paiza.io/projects/wfQXB4arB2zbu4DNYEiU5w

eval が使えて楽なので、つい。

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

>>602
Java
https://paiza.io/projects/2bTy71EhJJcVemamRx8IPA

**デフォルトの名無しさん** · 2020/10/11(日) 19:16:59.76

>>635
Kotlin
https://paiza.io/projects/O1eUwROYKRQepDq3N-VyUA

paiza.io はHTMLで出力させてブラウザに表示できるのでカラーバーも出してみました。

**デフォルトの名無しさん** · 2020/10/11(日) 19:36:20.38

これは良いこと聞いた

**デフォルトの名無しさん** · 2020/10/11(日) 19:48:34.94

>>640 Common Lisp (SBCL, 処理系依存)
https://ideone.com/nImAgj

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

>>663
かわいい

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

>>640 brainfuck

>+++++++[<+++++++>-]<+.--.++.--.+.-.+.-.

◆QZaw55cn4c · 2020/10/11(日) 23:30:32.44

>>605
C(C++) https://mevius.5ch.net/test/read.cgi/tech/1434079972/70

**蟻人間** ◆T6xkBnTXz7B0 · 2020/10/11(日) 23:57:26.40

お題: 整数0～10の一様分布の乱数を百回発生させて、その統計結果を基に各整数を横軸、回数を縦軸とする棒グラフ(ヒストグラム)を描画し(棒の最大幅32字)、ほぼ一様であることを確かめなさい。

**デフォルトの名無しさん** · 2020/10/11(日) 23:59:14.77

paiza.io は、text, html, json で出力できるのか

html も、部分的なタグだけを書いても動くのか

**蟻人間** ◆T6xkBnTXz7B0 · 2020/10/12(月) 00:01:01.03

>>667 訂正。

(誤)各整数を横軸、回数を縦軸とする棒グラフ
(正)各整数を縦軸、回数を横軸とする棒グラフ

**デフォルトの名無しさん** · 2020/10/12(月) 01:06:07.97

haskell

import Data.List
import System.Random

trial records = do
x <- randomRIO (0, 1) :: IO Double
return $ (truncate $ x * 11) : records

experience = iterate (>>= trial) (return [0..10])
showrecord (x,y) = let
clsstr = id
$ reverse
$ take 2
$ ( ++ (repeat '0'))
$ reverse
$ show x
barstr = replicate y '*'
in concat [ clsstr," ", barstr,"\n"]

main = do
records <- experience !! 100
putStr $ id
$ concat
$ map showrecord
$ map (\x -> (head x, length $ tail x))
$ group
$ sort
$ records

**デフォルトの名無しさん** · 2020/10/12(月) 01:14:47.03

>>640
Kotlin
https://paiza.io/projects/32aoQfPBUWZ0tnk2E5fg2g

ちょっと変わった感じにしようと思ってこうした。

**デフォルトの名無しさん** · 2020/10/12(月) 08:18:41.49

>>667
二項分布になるんじゃないかなあ

**デフォルトの名無しさん** · 2020/10/14(水) 15:32:12.46

>>649 オーディオ系はシステム依存度が高いから余りサンプルが出てこないね。　WindowsやMacOSなら簡単そうだが
1kHz の音源ファイルを使うのは違反かな？

**蟻人間** ◆T6xkBnTXz7B0 · 2020/10/14(水) 17:27:12.50

>>649 C/C++ with Win32
#include <windows.h>
int main(void)
{
Beep(1000, 1000);
}

**デフォルトの名無しさん** · 2020/10/14(水) 17:57:41.59

答え出てきても試しようがない

**蟻人間** ◆T6xkBnTXz7B0 · 2020/10/14(水) 18:19:22.34

>>649 Python with Windows
import winsound
winsound.Beep(1000, 1000);

**蟻人間** ◆T6xkBnTXz7B0 · 2020/10/14(水) 18:24:27.45

>>649 Python with Mac
import os
os.system('play -n synth 1 sin 1000');

**デフォルトの名無しさん** · 2020/10/14(水) 18:36:34.21

シェル経由でSoX playコマンド呼んでるだけやんけ
Pythonもmacも関係ねぇわ

**デフォルトの名無しさん** · 2020/10/14(水) 19:17:28.35

OSにつく前置詞はwithじゃなくてonだろハゲ

**デフォルトの名無しさん** · 2020/10/14(水) 19:30:29.09

試すと音が出て煩そうだから試す気になれない。

**蟻人間** ◆T6xkBnTXz7B0 · 2020/10/14(水) 19:50:02.82

テレビの自主規制音と同じ音だよ。
https://ja.wikipedia.org/wiki/%E8%87%AA%E4%B8%BB%E8%A6%8F%E5%88%B6%E9%9F%B3

**デフォルトの名無しさん** · 2020/10/15(木) 00:45:55.69

>>678 iOS じゃ、play コマンドがなさそうなんだよな。

**デフォルトの名無しさん** · 2020/10/15(木) 01:18:37.79

結局このスレで盛り上がるのは環境によらず言語によらず、でも多少は骨のあるようなお題なんだよな
へぇその言語ならそんなにキレイに書けるのかとか普段自分が使ってない言語ではどうやって実現できるのか眺めたりするのが面白い
音鳴らすなんてお題として面白いわけがない

**デフォルトの名無しさん** · 2020/10/15(木) 01:40:28.46

ヒント：出題者

**デフォルトの名無しさん** · 2020/10/15(木) 11:44:28.12

蟻人間さんへのお題：
文字列を受け取って、RFC 5322にしたがってSubjectヘッダを出力してください(MUST、SHOULDを満たすこと)
文字コードはUTF-8、エンコーディングはBエンコードを使用してください

**蟻人間** ◆T6xkBnTXz7B0 · 2020/10/15(木) 13:28:00.67

>>685 Python
text = 'Re: Re: This is a subject text. This is a subject text. This is a subject text.'
if text[0:4] == 'Re: ':
＿＿while text[0:4] == 'Re: ':
＿＿＿＿text = text[4:]
＿＿text = 'Re: ' + text
import base64
text = 'Subject: ' + base64.b64encode(text.encode('utf-8')).decode('ascii');
ary = []
while len(text) > 78:
＿＿ary.append(text[0:78])
＿＿text = text[78:]
ary.append(text)
import platform
if platform.system() == 'Windows':
＿＿for item in ary:
＿＿＿＿print(item)
else:
＿＿for item in ary:
＿＿＿＿print(item, end="\r\n")

**蟻人間** ◆T6xkBnTXz7B0 · 2020/10/15(木) 13:49:36.74

>>686 訂正。

(誤) while len(text) > 78:
(正) while len(text) >= 78:

**デフォルトの名無しさん** · 2020/10/15(木) 14:30:46.93

>>686
いろいろ違うので・・・メールのソース眺めたが良いです

**デフォルトの名無しさん** · 2020/10/15(木) 19:14:52.90

頭の悪いお題を連投してるやつはやっぱり頭悪いんだな

**デフォルトの名無しさん** · 2020/10/15(木) 19:22:03.88

そんなことないと思うけどな
あまり他人の悪口言わない方が良いよ

**デフォルトの名無しさん** · 2020/10/15(木) 19:28:33.00

くっそみたいなお題延々と出し続けてウザいじゃん

**デフォルトの名無しさん** · 2020/10/15(木) 19:29:59.48

>>629なんかはいいと思うんだけどな
eval使えないHaskellerにはいい練習問題になってる

**デフォルトの名無しさん** · 2020/10/15(木) 19:38:14.90

ウェブアプリつくれだのGUIアプリつくれだの酷い事散々言いまくってるじゃん
◆QZaw55cn4cの方がまだマシ

**デフォルトの名無しさん** · 2020/10/15(木) 19:40:03.02

まぁ音出せとかカラーバー出せとかはクソお題だな

**デフォルトの名無しさん** · 2020/10/16(金) 19:48:26.76

お題
自然数nを 2進数にした時、 1が連続する個数の最大値を求める。
例
20201016 -> 5

**デフォルトの名無しさん** · 2020/10/16(金) 20:25:28.88

haskell

import Data.List

maxConsOne = maximum . map length . filter ((==1).head) . group . unfoldr (\n ->if n == 0 then Nothing else Just (mod n 2, div n 2))

main = print $ maxConsOne $ 20201016
----
5

**デフォルトの名無しさん** · 2020/10/16(金) 21:03:20.03

>>695 ruby
f = ->(n) {n.to_s(2).chars.chunk(&:itself).map {|k, a| k == '1' ? a.size : 0}.max}

**デフォルトの名無しさん** · 2020/10/16(金) 21:35:06.98

>>695 JavaScript
const f = (n = 0) => Math.max(...(n.toString(2).match(/1+/g) ?? ['']).map(m => m.length))

console.log(f(20201016)) //=> 5

**253** · 2020/10/16(金) 23:46:14.30

>>695 Perl5

use List::Util max;
print max map{length} sprintf('%b', 20201016) =~ /(1+)/g;

実行結果
$ perl 18_695_bin1.pl
5

**デフォルトの名無しさん** · 2020/10/17(土) 00:12:43.05

>>695 Ruby

p 20201016.to_s(2).split("0").max.size

**デフォルトの名無しさん** · 2020/10/17(土) 00:24:53.85

haskell
無名関数というインチキ使ってしまったので再挑戦バージョン

import Data.List

main = print $ maximum . map sum . group . map (flip mod 2) . takeWhile (/=0) . iterate (flip div 2) $ 20201016