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

[1 デフォルトの名無しさん 2020/07/14(火) 13:53:46.47 ID:jW5p6F/e]

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

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

[988 デフォルトの名無しさん 2020/11/28(土) 22:44:23.07 ID:wyvnQiBB]

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

[989 デフォルトの名無しさん 2020/11/29(日) 06:10:23.39 ID:LsAPFm47]

>>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

[990 デフォルトの名無しさん 2020/11/29(日) 12:05:03.89 ID:POmPIOqu]

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

[991 デフォルトの名無しさん 2020/11/29(日) 14:25:29.24 ID:KxupmnON]

>>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が土曜になってしまい、
それを並び替えてから出力する必要があって少し複雑になった。

[992 253 2020/11/29(日) 15:02:42.80 ID:onV9IrOo]

>>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

[993 253 2020/11/29(日) 17:21:11.49 ID:onV9IrOo]

>>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

[994 デフォルトの名無しさん 2020/11/29(日) 20:08:13.17 ID:idUZlJAo]

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

[995 デフォルトの名無しさん 2020/11/29(日) 20:39:34.37 ID:idUZlJAo]

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

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

[996 ◆QZaw55cn4c 2020/11/29(日) 21:07:17.97 ID:POdKASdd]

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

[997 デフォルトの名無しさん 2020/11/29(日) 21:15:00.96 ID:sOEBQUsx]

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

[998 デフォルトの名無しさん 2020/11/29(日) 21:21:35.35 ID:idUZlJAo]

>>996
教えません

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

[999 デフォルトの名無しさん 2020/11/29(日) 21:26:09.30 ID:sOEBQUsx]

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

[1000 デフォルトの名無しさん 2020/11/29(日) 21:34:10.34 ID:idUZlJAo]

>>999
教えません