プログラミングのお題スレ 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/11/28(土) 17:57:16.56

>>982
thx
でもiphoneでどのサイトもコピペができないorz
なんでなんだろう？

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

とりあえず自分で打ち込んで試した
shuffleはランダムに並べ替えみたいだからちょっと違うかな

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

>>987
shuffleの代わりにsampleを使うといい

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

>>971 bat
:: 年月日を元に曜日を返す。 No args validation. 引数が無ければシステム時間
@echo off &setlocal enabledelayedexpansion
if not "%~1"=="" set "date=%~1"
:: set "date=2020.09.09"
set i=0
for %%a in (Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Y,M,D) do set "wd!i!=%%a"&set /a i+=1
set i=7
for /f "tokens=1-3 delims==/-.:,;()_・年月日 " %%a in ("%date%") do for %%d in (%%a %%b %%c) do for /f "tokens=* delims=0" %%e in ("%%d") do for /f %%i in ("!i!") do set /a !wd%%i!=%%e,i+=1
:: echo=%Y%,%M%,%D%,
set /a h=(365*Y+(Y-1)/4-(Y-1)/100+(Y-1)/400+(M+7)/10*(30*(M-3)+(3*M-7)/5+59+D-1)+(1/(Y%%4+1)-1/(Y%%100+1)+1/(Y%%400+1)+(M+7)/10)/2)%%7
echo=!wd%h%!
pause&exit /b

**デフォルトの名無しさん** · 2020/11/29(日) 12:05:03.89

>>971 Julia
using Dates
for w=1:7
println(Dates.format(Date(1,1,w), "E"))
end

**デフォルトの名無しさん** · 2020/11/29(日) 14:25:29.24

>>971
Kotlin script

println(java.text.DateFormatSymbols(java.util.Locale.ENGLISH).getWeekdays().let { wd -> ((2..6) + 1).map { wd[it] } }.join
ToString("\n"))

Javaのライブラリをそのまま使ってやってるので1が日曜で7が土曜になってしまい、
それを並び替えてから出力する必要があって少し複雑になった。

**253** · 2020/11/29(日) 15:02:42.80

>>971Perl5

use Time::Piece;
use Time::Seconds;
$t = Time::Piece->strptime('210201','%y%m%d');
for (0..6) { print $t->fullday."\n"; $t += ONE_DAY }

実行結果
~ $ perl 18_971_fullday.pl
Monday
Tuesday
Wednesday
Thursday
Friday
Saturday
Sunday

**253** · 2020/11/29(日) 17:21:11.49

>>971 Perl5、>>992 のもうﾁｮｲ手抜き版

use Time::Piece;
for (1..6,0) { print Time::Piece::fullday([(0)x6, $_])."\n" }

~ $ perl 18_971_fullday.pl
Monday
Tuesday
Wednesday
Thursday
Friday
Saturday
Sunday

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

>>971
Java
https://paiza.io/projects/F3UDtssyIBLD9KwEcaTfjA

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

お題
配列を入力として受け取り
値が連続するサブ配列のうち、合計が最大のものを出力してください

例
入力:[－2, 1, －3, 4, －1, 2, 1, －5, 4]
出力:[4, －1, 2, 1]

◆QZaw55cn4c · 2020/11/29(日) 21:07:17.97

>>995
＞サブ配列
の定義を教えてください

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

値が連続しないサブ配列とは？

**デフォルトの名無しさん** · 2020/11/29(日) 21:21:35.35

>>996
教えません

>>997
[1, 4, 2, 1, 4]
とか

**デフォルトの名無しさん** · 2020/11/29(日) 21:26:09.30

[4, －1, 2, 1]は値が連続するサブ配列で
[1, 4, 2, 1, 4]は値が連続しないサブ配列？
連続の定義は？

**デフォルトの名無しさん** · 2020/11/29(日) 21:34:10.34

>>999
教えません

**1001** · Over 1000

このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 138日 7時間 40分 24秒