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

**デフォルトの名無しさん** · 2019/07/28(日) 19:39:57.54

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

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

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

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

**デフォルトの名無しさん** · 2019/10/02(水) 21:00:41.50

>>663
解った文字列やってみるわ。

**デフォルトの名無しさん** · 2019/10/02(水) 21:46:18.99

>>648
http://coliru.stacked-crooked.com/a/7a42d9f1346c0049
C++。コンストラクタ起動式って17からやったっけ？
とりあえず作ってみたが・・・。
今、調子悪くて困ってる。

**デフォルトの名無しさん** · 2019/10/02(水) 21:48:13.96

ハッシュ関数は適当。昔2chで見たのパクった。
HMのサイズ7にしておけばよかった。素数だからな。

**デフォルトの名無しさん** · 2019/10/02(水) 21:59:13.49

お題: 簡易的なXMLをパースして構造を出力せよ

in < <div><p><a></a></p></div><span><p></p></span>

out >
div
__p
____a
span
__p

**デフォルトの名無しさん** · 2019/10/02(水) 22:48:58.72

>>661
それかsumでいいやん、conflictしたらリスト管理で一丁上がり

**デフォルトの名無しさん** · 2019/10/02(水) 22:50:04.70

>>667
C++
https://ideone.com/M5atpv

**デフォルトの名無しさん** · 2019/10/03(木) 08:18:12.13

>>629
> というか、技量の程度が疑わてしまうのでお勧めしない
人の心配する前に自分の出題技量の程度を心配しなよ…

**デフォルトの名無しさん** · 2019/10/04(金) 01:29:13.30

いいじゃねーかそんなこまけーことどうでも
ケツの穴のちいせぇやろうだな。
何ならおじさんが広げてやろうかｗ

**デフォルトの名無しさん** · 2019/10/04(金) 01:59:12.37

アッー！

**デフォルトの名無しさん** · 2019/10/04(金) 04:07:06.69

>>620
https://ideone.com/UUNc5X
C++。多分できた。
バグの原因は変数がマイナスを扱えていないことだった。

**デフォルトの名無しさん** · 2019/10/04(金) 14:06:50.47

>>629
の出題意図を読み取れば、
記憶域を余り自由に使えない環境で
如何に工夫して目的が達成できるか
ということではないかと
その意味では、Power-shellは少し
強力杉だから除外すべきだったかも
知れないが（遅いから使われる
ことは少ないだろけどスクリプト言
語処理系であるとも言えなくもないし）

**デフォルトの名無しさん** · 2019/10/04(金) 14:58:22.06

シェルスクリプトって元々プログラミング言語じゃないからな。　あくまでも補助的なもの。
それでプログラミングすると言うのは本末転倒。　間違った方向性でしかない。

貧弱な環境でも使えるものと言うなら、BASIC や、Python の組込型がコンパクト。　PIC や子供のおもちゃにすら入ってる。　百円のチップにすら入ってるからな。

コンパイラでも良いのならCが最もシンプル。

**デフォルトの名無しさん** · 2019/10/04(金) 17:29:00.38

またプログラム言語のオレオレ定義かよw

**デフォルトの名無しさん** · 2019/10/04(金) 17:37:04.67

それ以上に謎の空白が気になる

**675** · 2019/10/04(金) 18:12:04.35

わりいわりい、iOS13になって、日本語の途中の空白は全て全角になったから、なんか間抜けな感じになったな。

良いか悪いかわからんが慣れてくれ。

**デフォルトの名無しさん** · 2019/10/04(金) 18:43:32.54

。の後にスペースをひとつ入れているようだ

**デフォルトの名無しさん** · 2019/10/04(金) 18:44:20.57

スペース入れなきゃいいのでは？

**デフォルトの名無しさん** · 2019/10/04(金) 19:36:54.12

空白なのは頭ん中だけにしとけｗｗｗ

**デフォルトの名無しさん** · 2019/10/05(土) 00:51:48.39

空っぽのほうが夢詰め込めるぞ

**デフォルトの名無しさん** · 2019/10/05(土) 01:36:41.50

空っぽかと思ったら、実は分厚い頭蓋骨が詰まった中心に
ﾎﾟﾂﾝとノミのような脳みそがある、石頭だったでごじゃる

**637** · 2019/10/05(土) 08:57:02.16

>>629 コマンドプロンプト高速化版
https://ideone.com/bJ1lnD
>>642の6倍くらい速くなった…うちの環境だと>>646よりはやくなったどーｗ

**デフォルトの名無しさん** · 2019/10/05(土) 15:19:46.96

>>629 bash 4.3.42(3)

n=10000
eval "a=('' '' {2..$n})"
for i in ${a[@]}; do
　if [ ${a[$i]} ]; then
　　echo $i
　　for ((j=2*$i; j<=$n; j+=$i)); do
　　　 unset a[$j]
　　done
　fi
done

実行結果
$ bash 15_629_prime.sh
2

3

5

7
…
9941
9949
9967
9973

**デフォルトの名無しさん** · 2019/10/05(土) 15:21:16.04

>>685 実行結果、貼りそこなって変な改行は入ってた…orz 訂正

実行結果
$ bash 15_629_prime.sh
2
3
5
7
…
9941
9949
9967
9973

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

>>686 いや、for ((j=$i*$i; j<=$n; j+=$i)); do だよ間違えた、25%早くなる

n=10000
eval "a=('' '' {2..$n})"
for i in ${a[@]}; do
　if [[ ${a[$i]} ]]; then
　　echo $i
　　for ((j=$i*$i; j<=$n; j+=$i)); do
　　　 unset a[$j]
　　done
　fi
done

**デフォルトの名無しさん** · 2019/10/05(土) 16:09:49.40

>>629 >>687の実行結果
https://ideone.com/3RCc5k

**デフォルトの名無しさん** · 2019/10/05(土) 17:13:25.01

>>687

eval "a=('' '' {2..$n})"
for i in ${a[@]}; do
　if [[ ${a[$i]} ]]; then

この書き方、a[]の最初の0,1番目の要素に空文字を設定しておいて
それを配列のインデックスとして使い、あまりいい書き方じゃないと気がついた
動いているんで、あせって直さないでおくけどｺﾞﾒﾝね～

**デフォルトの名無しさん** · 2019/10/05(土) 20:48:42.33

お題:
https://regexcrossword.com/playerpuzzles/59e565c95008d
のようなHEXマスの正規表現クロスワードパズルのソルバーを実装せよ。
n=1でいいので処理時間も報告せよ。

**デフォルトの名無しさん** · 2019/10/05(土) 21:56:27.55

>>690
辞書データぷりーず

**デフォルトの名無しさん** · 2019/10/05(土) 22:00:12.06

このソルバーに辞書データっているか？

**デフォルトの名無しさん** · 2019/10/05(土) 22:27:44.93

>>691
出題者ではないが、まず、完成図面を作って、そこから問題を作ったほうが早そうだ。
ヘックスの扱い方わからねーんだ俺。
昔聞いたことあるけど、そのうち・・・と思ってたら曖昧になってしまった。

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

>>667 Perl5

$in = '<div><p><a></a></p></div><span><p></p></span>';
use XML::Simple;
$xml = new XML::Simple->XMLin('<document>'.$in.'</document>');
use Data::Dumper;
$Data::Dumper::Terse = 1;
print Dumper $xml;

実行結果
~ $ perl 15_667_Simple.pl
{
　'div' => {
　　'p' => {
　　　'a' => {}
　　}
　},
　'span' => {
　　'p' => {}
　}
}

**デフォルトの名無しさん** · 2019/10/06(日) 00:03:34.99

とりあえず>>690を手動で解くのに2時間かかったｗ
お題は思いついたらやる

**デフォルトの名無しさん** · 2019/10/06(日) 05:37:10.28

お題: L形図形を表示する
[入力]
1
[出力]
a
bc

[入力]
2
[出力]
ba
ca
abcc
bcab

[入力]
3
[出力]
bacb
cbaa
acba
bcca
bcabcccb
cabcabca
abccaabc
bcabbcab

**デフォルトの名無しさん** · 2019/10/06(日) 05:55:18.89

>>696
最後のやつが4ではなく3?
それと文字はabc使っているが、どういう規則で並べるのか?

**デフォルトの名無しさん** · 2019/10/06(日) 05:58:05.67

カオス

**675** · 2019/10/06(日) 09:02:51.40

最後は4だろ

**デフォルトの名無しさん** · 2019/10/06(日) 09:24:22.51

>>697
おそらく1のパターンのL字を4つで向きを変えてくっつけて大きなL字にしたものが2のパターン。2を4つ使って同じことをやって3を作ってるということだと思う。愚直に再帰的にやれば簡単そう。

**デフォルトの名無しさん** · 2019/10/06(日) 10:20:09.68

>>696
入力3の出力、一か所間違えとるよな？ｗ

**デフォルトの名無しさん** · 2019/10/06(日) 10:43:36.50

>>696 Java
https://ideone.com/31a8Ky

**デフォルトの名無しさん** · 2019/10/06(日) 17:34:25.93

お題: プログラム実行後にプログラム自身を削除するプログラムを作れ
実行内容は以下のメッセージを出力する
「このプログラムが起動するのは一度きりである。実行ののち、消去される。」

**デフォルトの名無しさん** · 2019/10/06(日) 17:53:36.15

>>703
echo このプログラムが起動するのは一度きりである。実行ののち、消去される。
rm -rf /

**675** · 2019/10/06(日) 18:05:59.73

>>703 そんな問題は却下。　
どんな問題でもファイルを削除する様な問題は出してはいけない。
ど素人もいるんだからそんな問題は出すべきではない。

**デフォルトの名無しさん** · 2019/10/06(日) 20:06:09.43

>>704
大抵の環境でコマンド通らないんじゃないかそれ

**デフォルトの名無しさん** · 2019/10/06(日) 20:12:57.33

#!/bin/sh
echo このプログラムが起動するのは一度きりである。実行ののち、消去される。
\rm -f $0

**デフォルトの名無しさん** · 2019/10/06(日) 20:16:32.32

lol $0 じゃなくて / にしてるのかwww

**デフォルトの名無しさん** · 2019/10/06(日) 20:19:37.81

>>707みて、できなくはないが、やりたくない気分になった。
http://www.t-net.ne.jp/~cyfis/c/stdlib/system.html
上記を使えば、PGからコマンドラインに干渉できる。が！ねぇ・・・。
場所もargc[0]に書いてあるんだけどねぇ・・・。

WA.

**デフォルトの名無しさん** · 2019/10/06(日) 21:19:08.41

シェルスクリプト総合その31
https://mevius.5ch.net/test/read.cgi/tech/1565446670/

**デフォルトの名無しさん** · 2019/10/07(月) 13:22:48.77

>>703
Linux等のUNIX系OS

at now +1 min

などとやって at job が一分後に動くようにして次の1行を入力してから Ctrl+D で終了させる。

echo 'このプログラムが起動するのは一度きりである。実行ののち、消去される。'

その後1分待つと上記文言の出力後 at job は削除される。

ただし通常の出力先である標準出力はないことになっているのでatによって拾われてメールでエラーメッセージと共に送られてくる。
それを見たい場合はmailコマンドで送られてきたメールの内容を見る等する。

**蟻人間** ◆T6xkBnTXz7B0 · 2019/10/07(月) 18:38:53.78

>>703 C++/Win32

#include <windows.h>
#include <stdlib.h>
#include <stdio.h>
int main(int argc, char **argv)
{
printf("このプログラムが起動するのは一度きりである。実行ののち、消去される。\n");
FILE *fp = fopen("delete-me.bat", "w");
fprintf(fp, "@echo off\n");
fprintf(fp, ":retry\n");
fprintf(fp, "del \"%s\"\n", argv[0]);
fprintf(fp, "if exist \"%s\" goto retry\n", argv[0]);
fprintf(fp, "del delete-me.bat\n");
fclose(fp);
ShellExecuteA(NULL, NULL, "cmd", "/c delete-me.bat", NULL, SW_HIDE);
return 0;
}

**デフォルトの名無しさん** · 2019/10/07(月) 22:21:05.16

>>703 Perl5

print "このプログラムが起動するのは一度きりである。実行ののち、消去される。\n";
unlink $0;

実行結果
~ $ perl 15_703.pl
このプログラムが起動するのは一度きりである。実行ののち、消去される。
~ $ ls -o 15_703.pl
/usr/bin/ls: cannot access 15_703.pl: No such file or directory

嫌なプログラミンッグだな、一歩書き間違がや大参事。
こういうお題はご遠慮願いたいものだ…

**デフォルトの名無しさん** · 2019/10/07(月) 22:32:50.62

すまぬ >>713 は題意とは違うな。
プログラムの実行が終了してから削除されるわけか…

>>703 bash

(sleep 4; rm -f $0)&
echo このプログラムが起動するのは一度きりである。実行ののち、消去される。

実行結果
$ bash 15_703.sh
… 数秒後
$ ls -o 15_703.sh
ls: 15_703.sh にアクセスできません: No such file or directory

**デフォルトの名無しさん** · 2019/10/07(月) 22:35:14.10

>>714 実行結果貼りそこなったorz

$ bash 15_703.sh
このプログラムが起動するのは一度きりである。実行ののち、消去される。
$ ls -o 15_703.sh
-rw-r--r-- 1 ******** 98 10月 7 22:29 15_703.sh
… 数秒後
$ ls -o 15_703.sh
ls: 15_703.sh にアクセスできません: No such file or directory

**デフォルトの名無しさん** · 2019/10/07(月) 23:18:10.62

MSX BASIC
10 print"ｵﾊﾖｳﾌｪﾙﾍﾟｽｸﾝ,ｺﾝｶｲﾉｷﾐﾉﾆﾝﾑﾀﾞｶﾞｲｶﾘｬｸﾅｵｺﾉﾃｰﾌﾟﾊｼﾞﾄﾞｳﾃｷﾆｼｮｳﾒﾂｽﾙ"
20 new

**デフォルトの名無しさん** · 2019/10/07(月) 23:48:42.06

>>703
https://ideone.com/B5bVTK
C++。自分ができるのはここま・・・で・・・だ。。。

うぼぁあああああああ。

**蟻人間** ◆T6xkBnTXz7B0 · 2019/10/07(月) 23:54:31.61

実行時にexeにロックがかかるから、実行終了を待つsystem関数では消せないんだ、これが。

**蟻人間** ◆T6xkBnTXz7B0 · 2019/10/08(火) 00:32:11.48

拡張子.batはコマンドプロンプトのバッチファイルを表す。

**デフォルトの名無しさん** · 2019/10/08(火) 01:09:42.27

https://ideone.com/ABzMBS
C++&.

**デフォルトの名無しさん** · 2019/10/08(火) 01:10:33.04

>>720
C++&Windows.
おかしなキーコンビネーションで投稿してしまったが、それは置いといて。
結構な沼だったわ。

**デフォルトの名無しさん** · 2019/10/08(火) 01:14:29.28

あ、数秒後にタスクを実行したかったが、分単位にしかならないようだ。

**デフォルトの名無しさん** · 2019/10/08(火) 01:31:36.46

どM乙。

**デフォルトの名無しさん** · 2019/10/08(火) 02:43:45.63

https://ideone.com/s1OxbV
C++&Windows.　結局バッチ作ってバッチを削除するようにした。

**デフォルトの名無しさん** · 2019/10/08(火) 02:45:57.47

C++で書いている意味があまりないなぁ。
頭がこんがらがってくるわ。

**デフォルトの名無しさん** · 2019/10/08(火) 03:07:50.37

タスクスケジューラには一個のタスクしか持たせることができません。
タスクスケジューラの健康のために削除タスクと削除タスクをkillするタスクを入れたという欲が出ました。
さて、どうすればよかったのでしょうか・・・。

**デフォルトの名無しさん** · 2019/10/08(火) 03:25:53.77

https://ideone.com/8DBn1u
チョットシンプルになった。
けど、ただスケジュールしてバッチファイル作るだけになっちゃった・・・。Orz

ううううううぼぉぉぉおあぁぁぁあああ。。。

**デフォルトの名無しさん** · 2019/10/08(火) 18:18:17.33

おしい

**デフォルトの名無しさん** · 2019/10/08(火) 22:43:05.75

「インターネットには戦力外通告とかが無いから頭の悪い人がいつまでも打席に立って三振し続ける」

**デフォルトの名無しさん** · 2019/10/09(水) 01:57:50.31

お題: TCPデータグラムが流れてくるのでFINフラグが立っていたら「切断します」と出力せよ

**デフォルトの名無しさん** · 2019/10/10(木) 00:51:51.46

>>729
IT分野の実社会では、単価にそれほど差がないのをいいことに
パーフォマンダウンによる差額で利ざやを稼ごうという
商売が横行して、結果としてＩＴ分野が廃れている

だから。こまけーこたーいいんだよ

**デフォルトの名無しさん** · 2019/10/10(木) 19:10:08.63

>>703
Windows10で、普通に↓で消せた。
https://ideone.com/j1Glc5

**デフォルトの名無しさん** · 2019/10/10(木) 19:12:56.39

>>690 解けた人いない？

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

>>733
手では解いた
総当たり以外に思い浮かばん

**デフォルトの名無しさん** · 2019/10/10(木) 20:46:59.80

いやお題はパズルを解けじゃなくてパズルのソルバーの実装だからｗｗｗ

**蟻人間** ◆T6xkBnTXz7B0 · 2019/10/10(木) 21:25:17.60

古典的な人工知能の探索アルゴリズムを研究すれば、この程度のソルバーは作れる。

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

つまり研究しないと作れないってことか。

**デフォルトの名無しさん** · 2019/10/10(木) 23:09:22.63

>>735
だから総当たり以外思い浮かばなかったって言ってるだろ

**デフォルトの名無しさん** · 2019/10/11(金) 00:08:49.38

>>690
ここの↓にすごい悩んだ。
https://regexcrossword.com/playerpuzzles/5d705a4fbf679
Ambiguousの意味を知らずに・・・・・

**デフォルトの名無しさん** · 2019/10/11(金) 01:56:11.32

いや総当たりでも出来たなら貼ってくれや。
別に総当たりでも恥ずかしくもなんともないと思うが…

**デフォルトの名無しさん** · 2019/10/11(金) 08:53:45.55

貼りたくねえ
総当たり出できたものを他人のために見せる必要性もないし

**デフォルトの名無しさん** · 2019/10/11(金) 09:03:11.12

できた！
みせて。
見せたくない！

うーん…

**デフォルトの名無しさん** · 2019/10/11(金) 09:08:21.86

；フェルマーの最終定理

**デフォルトの名無しさん** · 2019/10/11(金) 21:55:54.61

お題：0～9999の整数について数字和を求め、数字和の頻度を集計せよ

ocaml
https://ideone.com/AjcGgp

c
https://ideone.com/38nYGS

octave
https://ideone.com/g7FrVu

ruby
https://ideone.com/YyFXWh

**デフォルトの名無しさん** · 2019/10/11(金) 22:38:20.98

>>744
https://ideone.com/pEdgoA
C++。最初サンプルと違う答えになってビビったけど、俺のコードがバグっていた・・・。Orz

**デフォルトの名無しさん** · 2019/10/11(金) 22:44:43.53

すんごく二項定理っぽい数字の並び方をしてる

**デフォルトの名無しさん** · 2019/10/11(金) 23:16:02.90

**デフォルトの名無しさん** · 2019/10/11(金) 23:53:28.54

>>744
これって0~9999じゃなくて任意の2つの数字入力させてとかだと愚直に計算するしかない？

**デフォルトの名無しさん** · 2019/10/12(土) 00:32:58.46

>>748
うまくやれば出来そうだがまだ思いつかん

**デフォルトの名無しさん** · 2019/10/12(土) 11:04:47.64

>>744 Pharo/Squeak Smalltalk

| bag |
bag := Bag new.
(0 to: 9) asDigitsToPower: 4 do: [:digits | bag add: digits sum].
^ bag sortedElements

"=> {0->1 . 1->4 . 2->10 . 3->20 . 4->35 . 5->56 .
6->84 . 7->120 . 8->165 . 9->220 . 10->282 .
11->348 . 12->415 . 13->480 . 14->540 . 15->592 .
16->633 . 17->660 . 18->670 . 19->660 . 20->633 .
21->592 . 22->540 . 23->480 . 24->415 . 25->348 .
26->282 . 27->220 . 28->165 . 29->120 . 30->84 .
31->56 . 32->35 . 33->20 . 34->10 . 35->4 . 36->1} "

**デフォルトの名無しさん** · 2019/10/12(土) 11:07:06.97

いかん。すまん。出力が安価になってしまった。

**デフォルトの名無しさん** · 2019/10/12(土) 11:31:04.69

lol

**デフォルトの名無しさん** · 2019/10/12(土) 11:52:28.41

>>750
@Mathematica

Range[0, 9999] //
　Map[IntegerDigits, #] & //
　Map[Total, #] & //
　Tally

{{0, 1}, {1, 4}, {2, 10}, {3, 20}, {4, 35}, {5, 56}, {6, 84},
　{7, 120}, {8, 165}, {9, 220}, {10, 282}, {11, 348}, {12, 415},
　{13, 480}, {14, 540}, {15, 592}, {16, 633}, {17, 660}, {18, 670},
　{19, 660}, {20, 633}, {21, 592}, {22, 540}, {23, 480}, {24, 415},
　{25, 348}, {26, 282}, {27, 220}, {28, 165}, {29, 120}, {30, 84},
　{31, 56}, {32, 35}, {33, 20}, {34, 10}, {35, 4}, {36, 1}}

**デフォルトの名無しさん** · 2019/10/12(土) 13:09:50.35

>>744 perl

use List::Util qw(sum);
$h{sum(split"")}++ for(0..9999);
map{print"$_ $h{$_}\n"}sort{$a<=>$b}keys%h;

**デフォルトの名無しさん** · 2019/10/12(土) 13:25:43.66

>>748　言われた通りの改定問題

X,Yが与えられる。
X以上Y以下の連続する整数で、数字和の頻度。
もっとも大きい頻度はいくつか。
制約 0 <= X < Y <= 5000億

1) 0 9999 --> 670
　　合計18が、670ある。>>744の入力値
2) 1234567 9876543 --> 459034
3) 1 500000000000 --> 20406732610
4) 12345678909 498765432123 --> 20000965162

※Y-Xが MAX5000億なので愚直(力技)はきつい。
※頻度表は"桁数*9"程度あるので、最高値出力のみに変更

**デフォルトの名無しさん** · 2019/10/12(土) 17:47:36.17

頻度の階差を取った
0~9999だと三角数
0~99999だと三角錐数
になる

**デフォルトの名無しさん** · 2019/10/12(土) 18:44:18.00

>>740
>>741じゃねーけど総当りもどきで解いてみた
https://ideone.com/nZqnpN
https://i.imgur.com/3esPPr0.jpg
さすがにフルに総当りするととても終わりそうにないのでちょっとズルして各マスに入る文字を正規表現に使われている"ABCDEFGHMNORXYZ"に限定した
(ソースの217行目）
Celeron 1005M 1.9GHzのしょぼいノートPCで1,386秒（23分）程度だった

**デフォルトの名無しさん** · 2019/10/12(土) 19:36:00.00

>>757
すんごい
実行時間もすんごい…

**デフォルトの名無しさん** · 2019/10/12(土) 19:59:28.15

>>754 Perl5、計算量を減らしたｱﾙｺﾞﾘｽﾞﾑ

sub f {
　@s = @_;
　for $l (1..9) {
　　$s[$_ + $l] += $_[$_] for 0..$#_;
　} @s }
@b = f f f f 1;
print "$_,$b[$_] " for 0..$#b;

実行結果
~ $ perl 15_774_digit_sum_1.pl
0,1 1,4 2,10 3,20 4,35 5,56 6,84 7,120 8,165 9,220 10,282 11,348 12,415 13,480 14,540 15,592 16,633 17,660 18,670 19,660 20,633 21,592 22,540 23,480 24,415 25,348 26,282 27,220 28,165 29,120 30,84 31,56 32,35 33,20 34,10 35,4 36,1

もっと減らしたｱﾙｺﾞﾘｽﾞﾑを考えたい気もするけど、
これで一回投稿

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

>>759
アンカーしくった、>>744 だった…ｺﾞﾒﾝね

**744** · 2019/10/12(土) 20:24:43.33

白状すると単にrubyで書きたいだけのお題だったんだけど
（Array#repeated_permutationを使いたいだけ）
みんな色々面白いこと考えるもんだね

**蟻人間** ◆T6xkBnTXz7B0 · 2019/10/13(日) 14:56:19.23

お題: ストップウォッチを作れ。

最初にEnterキーを押すとスタート。
次にEnterキーを押すとストップ。
経過した時間を表示する。

**675** · 2019/10/13(日) 15:28:31.50

>>744 Python
https://ideone.com/v1nrdn
―――-

import pandas as pd

array = []
for i in range(0,10000):
array.append(sum(list(map(int,str(i)))))

srv =pd.Series(array).value_counts().sort_index()

print(srv)