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

**デフォルトの名無しさん** · 2021/06/19(土) 00:02:57.84

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

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

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

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

**デフォルトの名無しさん** · 2021/06/24(木) 13:22:13.95

>>20
極小ってのはかんたんに分かるモンなの？

**デフォルトの名無しさん** · 2021/06/24(木) 13:33:05.04

「極力小さく」だから
プログラマの能力でできる限り、
じゃないの？

**デフォルトの名無しさん** · 2021/06/24(木) 14:07:33.05

要するにこれエジプト分数だろ
極小かどうかが面倒くさい話だった

エジプト式分数 - Wikipedia
https://ja.wikipedia.org/wiki/%E3%82%A8%E3%82%B8%E3%83%97%E3%83%88%E5%BC%8F%E5%88%86%E6%95%B0

**デフォルトの名無しさん** · 2021/06/24(木) 19:38:29.60

>>21 Ruby
require 'date'
y = 2021
12.times{|m|
d = Date.new( y, m+1 ).next_month().prev_day()
puts d.prev_day( (d.wday-5) % 7 ).strftime( '%F' )
}

**デフォルトの名無しさん** · 2021/06/24(木) 19:39:02.06

>>21 Ruby
y = 2021
w = Time.new( y ).wday
tbl = ( (y & 3) == 0 && (y % 100) != 0 || (y % 400) == 0 )?
[ [25,23,25,24,25,24,25,25,24,25,24,25], [2,1,5,3,0,5,2,6,4,1,6,3] ] :
[ [25,22,25,24,25,24,25,25,24,25,24,25], [2,2,6,4,1,6,3,0,5,2,0,4] ]
12.times{|m|
puts "%04d-%02d-%02d" % [ y, m+1, tbl[0][m] + ((tbl[1][m]-w) % 7) ]
}

**デフォルトの名無しさん** · 2021/06/24(木) 22:03:03.66

>>21
Kotlin
https://paiza.io/projects/mOAfjYjLJx67zhwlGiIuJw

次の月の1日の曜日を求めてそこから何日引くかを計算して引いているだけ。
java.time.LocalDate クラス使っているので Java でも似たようなプログラムは作れると思う。

**デフォルトの名無しさん** · 2021/06/25(金) 05:25:13.97

>>5-6
# (コマンド),"文字列",(コマンド2) | パイプラインで渡されたコマンド実行結果や文字列を連結して1行の文字列にするJoin-String |
# 連結して1行にした文字列で変数初期化（Tee-Object -Variable 変数） | memo.txtに追記（Tee-Object -Append）
(Get-Date).ToString("yyyy/MM/dd/第"),
[Math]::Floor( ( (Get-Date).Day + 6 ) / 7　).ToString(),
(Get-Date).ToString("dddd/HH:mm/"),
" #tag#", ( Read-Host "キーワードを入力" ), " ",
( Get-Clipboard ) | Join-String | Tee-Object -Variable kopipe |
Tee-Object -FilePath "$HOME/Documents/memo.txt" -Append
# memo.txtをバックアップ
Copy-Item -Path "$HOME/Documents/memo.txt" -Destination "$HOME/Documents/bak/memo_bak.txt"
# $kopipe = 2021/06/25/第4金曜日/ ###タグ
# 今日が"第4金曜日"なら何かをする
if ( $( Write-Output $kopipe | Select-String -Pattern "第4金曜日" ) ) {
Write-Host "PowerShell"
} else {
Write-Host "Shell Script"
}
# Visual Studio Codeでファイルを開く
code "$HOME/Documents/memo.txt"

**デフォルトの名無しさん** · 2021/06/25(金) 05:30:47.47

using InteractiveUtils, Dates
# 1 clipboardの文字列に含まれる改行文字を半角スペースに変換
clipb = replace( clipboard(), "\n" => " " )
# 2 曜日名や月名を日本語で取得するための設定
# docs.julialang.org/en/v1/stdlib/Dates/#Query-Functions
japanese_months = [""] ; japanese_monts_abbrev = [""]
japanese_days = ["月曜日","火曜日","水曜日","木曜日","金曜日","土曜日","日曜日"]
Dates.LOCALES["nihongo"] = Dates.DateLocale(japanese_months, japanese_monts_abbrev, japanese_days, [""])
# 実行結果例：2021/06/25/第
year_month_day = Dates.format( now(), "yyyy/mm/dd/第" )
# floor( 3.9 )の実行結果は3.0でfloor( Int, 3.9 )の実行結果は3
第num = floor( Int, ( Dates.day( now() ) + 6 ) / 7 )
# 実行結果例：金/04:21/ 、locale="上で設定した名前"は曜日名を英語以外の言語で取得するためのオプション
youbi_time = Dates.format( now(), "E/HH:MM/" ; locale="nihongo" )
# 3.grepで一覧表示するときに使うハッシュタグを入力。grep ###5ch, grep ###日記, grep ###英語, grep ###エラー, grep /第2金曜日/")
print("タグを入力：") ; hashtag = readline()
from_year_to_hashtag = year_month_day * string(第num) * youbi_time * " ###" * hashtag
# Juliaで文字列連結は+ではなく*
# docs.julialang.org/en/v1/manual/faq/#Why-does-Julia-use-*-for-string-concatenation?-Why-not-or-something-else?
copipe = from_year_to_hashtag * " " * clipb * "\n"
# docs.julialang.org/en/v1/base/file/#Base.Filesystem.homedir
# docs.julialang.org/en/v1/base/io-network/#Base.open
# "a"はwrite（書き込み）, create（作成）, append（追記）
io = open( homedir() * "/Documents/memo.txt", "a" )
write( io, copipe )
close(io)

**デフォルトの名無しさん** · 2021/06/25(金) 05:33:54.12

# 4. 今日が第4金曜日なら指定の画像ファイルを表示。ゴミの日とかを登録しておくと便利。
# docs.julialang.org/en/v1/manual/control-flow/
if contains( from_year_to_hashtag, "第4金曜日" )
imagefile = homedir() * "/Pictures/image.jpg"
# docs.julialang.org/en/v1/manual/running-external-programs/
# xdg-openの部分はmspaintとかでもOK
run(`xdg-open $imagefile`)
else
println("5ch on")
end

# docs.julialang.org/en/v1/stdlib/REPL/#The-Julia-REPL
# 関数の説明と使用例は次のようにすれば見れるよ。
# julia>using Dates
# julia>?　　<- Enterキーは押さなくて良い
# help?>dまで入力した後にTabキーを2回押す
# help?>からjulia>に戻すにはBackSpaceキーを押す
# その他の使い方
# julia>usingの後に半角スペースを入力した後にTabキーを2回押してモジュール一覧表示
# julia>aを入力後にTabキーを2回押す
# julia>absの後に半角スペースを入力した後にTabキーを2回押して関数を一覧表示

**デフォルトの名無しさん** · 2021/06/25(金) 05:50:35.99

IJulia
github.com/JuliaLang/IJulia.jl
julia> ]
(@v1.6) pkg>add IJulia
BackSpaceキーを押す

replからjupyter Labを起動
julia> using IJulia ; jupyterlab(dir="/home/xxxx/Documents/jupyterlab")
Ctrl-D
ターミナルから起動
$ jupyter lab --notebook-dir="$HOME/Documents/jupyterlab" --browser="/usr/bin/google-chrome"

Visual Studio Code拡張機能Code Runner
ファイル>ユーザー設定>設定を開き、画面右上にある三角アイコン右横の「設定(JSON)を開く」をクリック
例
"code-runner.executorMap": {
// Julia実行ファイルのフルパス
"julia": "$HOME/julia-1.6.1/bin/julia",
},
//コード実行結果をターミナルに表示する
"code-runner.runInTerminal": true,

27 · 2021/06/25(金) 15:31:39.30

>>21
C
https://paiza.io/projects/P3IhYWEdF85M3_-V0EGgAA

>>27のKotlinのやつと考え方は同じ。

**デフォルトの名無しさん** · 2021/06/25(金) 21:10:31.51

ともかく最小とか入れてしまうと途端に難しくなる
できればいいんだよ

**デフォルトの名無しさん** · 2021/06/26(土) 00:46:33.35

>>21

haskell

import Data.Time.Calendar

premiumFridays y = let
baseDay = ( fromGregorian 2021 6 13 )
lastFriday y m = let
d = gregorianMonthLength y m
difflst = flip diffDays baseDay
$ fromGregorian y m d
lastDay = fromGregorian y m d
in addDays ( - ( mod ( difflst + 2 ) 7 ) ) lastDay
in [ lastFriday y m | m<- [ 1.. 12 ] ]

main = mapM_ print $ premiumFridays 2021
---
2021-01-29
2021-02-26
2021-03-26
2021-04-30
2021-05-28
2021-06-25
2021-07-30
2021-08-27
2021-09-24
2021-10-29
2021-11-26
2021-12-31

**デフォルトの名無しさん** · 2021/06/26(土) 05:00:02.78

Rubyの公式リファレンスは docs.ruby-lang.org

**デフォルトの名無しさん** · 2021/06/30(水) 18:30:07.65

お題: 年、月、週の初めの曜日を表す値(0=日曜日, 1=月曜日)を入力するとその月のカレンダーを出力する。

例

入力: 2021 6 0
出力:
日月火水木金土
1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30

上の例はスペースの幅の都合で表示が崩れているかも知れないが、等幅(漢字は2倍)と考えて作って良い。
(なんだったら出力を画像にしても良い)

**デフォルトの名無しさん** · 2021/06/30(水) 23:36:42.12

今年は休日変則だな

**デフォルトの名無しさん** · 2021/07/01(木) 03:39:10.59

>>36
Kotlin
https://paiza.io/projects/GUCK2jPXyzPYyD_dmW-oXw

**デフォルトの名無しさん** · 2021/07/01(木) 08:32:02.86

>>36 Ruby
str = '2021 7 0'
y, m ,s = str.scan(/\d+/).map(&:to_i)
a = '日月火水木金土'.chars.rotate(s)
a << [" "] * ((Time.new( y, m, 1 ).wday - s) % 7)
1.upto(31){|d|
break if Time.new( y, m, d ).month != m
a << '%2d' % d
}
a.flatten.each_slice(7){|w| puts w.join(' ') }

**デフォルトの名無しさん** · 2021/07/01(木) 15:44:48.02

>>36
Kotlin

paiza.ioでHTML出力にして画像表示

https://paiza.io/projects/n6KxMYs4zN2MgBn2UiSAwQ

**デフォルトの名無しさん** · 2021/07/01(木) 15:53:06.10

>>40
しゅごい

39 · 2021/07/01(木) 19:49:58.87

>>36 Ruby
str = '2021 7 0'
y, m, s = str.scan( /\d+/ ).map( &:to_i )
( '日月火水木金土'.chars.rotate(s) + [' '] * (( Time.new( y, m, 1 ).wday - s ) % 7) + (1 .. [31, 30, 29, 28].find{|d| Time.new( y, m, d ).month == m }).to_a.map{|d| '%2d' % d } ).flatten.each_slice(7){|w| puts w * ' ' }

◆QZaw55cn4c · 2021/07/01(木) 20:48:40.02

>>36
＞週の初めの曜日を表す値(0=日曜日, 1=月曜日)を入力する

その条件、いるのですか？

**デフォルトの名無しさん** · 2021/07/01(木) 21:15:18.27

>>43
お前の存在、いるのですか？

◆QZaw55cn4c · 2021/07/01(木) 21:44:00.07

>>44
なぜ要らないとおもったのですか？

**デフォルトの名無しさん** · 2021/07/01(木) 22:06:31.90

>>45
誰も要らないとは言っていないのに要らないと言っているように感じられるのは
お前がお前自身のことを要らないと思っているからなのだろうな

**デフォルトの名無しさん** · 2021/07/02(金) 10:06:20.83

>>44
要る。

**デフォルトの名無しさん** · 2021/07/02(金) 10:38:45.74

>>43
キチ外だな

>>46
言い訳すんなアスペ
普通の人間は文脈読むだろ

**デフォルトの名無しさん** · 2021/07/02(金) 13:39:10.26

本気で知らないんだろう
月曜始まりのカレンダーを見たことないご存じないとかじゃね？

**デフォルトの名無しさん** · 2021/07/02(金) 16:10:17.73

https://www.543life.com/campus114.html

**デフォルトの名無しさん** · 2021/07/02(金) 22:18:49.57

>>36
haskell

https://ideone.com/tiC2hC

**デフォルトの名無しさん** · 2021/07/02(金) 22:25:49.60

>>48
お前が一番日本語理解できてなくて草

**デフォルトの名無しさん** · 2021/07/02(金) 22:59:04.30

>>49
むしろ全てのカレンダーを月曜始まりにして欲しいぐらい

**デフォルトの名無しさん** · 2021/07/03(土) 02:44:37.57

月月火水木金金

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

オプションの話なんてどうでもいいけど
1日を左上始まりの方が合理的だと思う

**デフォルトの名無しさん** · 2021/07/03(土) 18:17:25.88

どうかな

多くの場合
月の開始日を固定するより
曜日を固定した方が有用だ

月によって

**デフォルトの名無しさん** · 2021/07/03(土) 18:34:34.91

曜日固定の暦も提案されたけど採用されることはなかったんだよね

**デフォルトの名無しさん** · 2021/07/03(土) 19:07:03.68

まあ大抵の人は基本的に曜日で休みが決まってたりするしな

**デフォルトの名無しさん** · 2021/07/03(土) 19:13:38.83

28日×13月、最終月で調整、がシンプルで良かったのにな
年初の時期も夏至とか分かりやすい日にすれば良かったのに

**デフォルトの名無しさん** · 2021/07/03(土) 21:26:36.17

暦は農業をするうえで細かく日を読む必要から作られ発展してきた
農閑期には日付が定められなかったことも
ヨーロッパの言語で前半は神の名が付けられ、後ろの方がテキトーなことからもその時代における重要度が推し量れる

**デフォルトの名無しさん** · 2021/07/03(土) 21:35:30.23

そもそも古代ローマの暦では11-12月は名前がなかった

**デフォルトの名無しさん** · 2021/07/04(日) 00:40:14.83

エチオピアではエチオピア歴が今も使われており13月があったりする。
https://www.hope.or.jp/2019/09/13/ethiopian-calendar

39 · 2021/07/04(日) 08:11:39.86

>>36 Ruby
お題の仕様を拡張してみた
前後の月の日付も週単位で表示
・前月日付は週はじめから最小1日から最大7日
・翌月日付は週末まで最小0日から最大6日

require 'date'
str = '2021 7 0'
y, m ,s = str.scan( /\d+/ ).map( &:to_i )
a = '日月火水木金土'.chars.rotate(s)
sw = (Time.new( y, m, 1 ) - s % 7).wday
( (sw == 0)? 7 : sw ).downto(1){|d| a << Date.new( y, m, 1 ).prev_day( d ).mday.to_s }
1.upto( Date.new( y, m, 1 ).next_month.prev_day.mday ){|d| a << '%2d' % d }
(-a.size % 7).times{|d| a << '%2d' % (d+1) }
a.each_slice(7){|w| puts w * ' ' }

39 · 2021/07/05(月) 00:26:38.86

>>36 Ruby

>>63
> sw = (Time.new( y, m, 1 ) - s % 7).wday
は間違いでした

require 'date'
str = '2021 7 0'
y, m, s = str.scan( /\d+/ ).map( &:to_i )
m1 = Date.new( y, m, 1 )
sw = m1.wday - s % 7
pmd = m1.prev_day.mday
a = '日月火水木金土'.chars.rotate(s)
( pmd - ((sw == 0)? 7 : sw) + 1 ).upto( pmd ){|d| a << d.to_s }
1.upto( m1.next_month.prev_day.mday ){|d| a << '%2d' % d }
(-a.size % 7).times{|d| a << '%2d' % (d+1) }
a.each_slice(7){|w| puts w * ' ' }

39 · 2021/07/05(月) 01:08:34.16

>>64 もバグ有り
> sw = m1.wday - s % 7
sw = (m1.wday - s) % 7

**デフォルトの名無しさん** · 2021/07/05(月) 17:31:47.07

>>28-31
28はPowerShell版

お題：クロームブラウザーのヘッドレスモードを使って何かを作る
google-chrome --headless --disable-gpu --hide-scrollbars --window-size=700,8000 --virtual-time-budget=10000 --screenshot="$HOME/Pictures/$(date +"%H_%M_%S").png" 'yahooリアルタイム検索結果のURL'

--window-size=はスクリーンショットを撮る範囲
--virtual-time-budget=は検索結果が表示されるまで時間がかかるサイトで使う。これがないと検索結果のスクリーンショットがうまく撮れない。10000ミリ秒=10秒。

**デフォルトの名無しさん** · 2021/07/06(火) 12:39:02.75

数学板から
お題
Σ[n:2〜∞]cos(n)/log(n)を小数第10まで求めよ

元々収束するか？で収束するなら10桁計算せよってついてたけど今のところ10桁計算してみせた人おらず
もちろん収束遅すぎて少し工夫しないと10桁出すのは難しいかなと

**デフォルトの名無しさん** · 2021/07/06(火) 18:27:19.16

>>67
わからない。

**デフォルトの名無しさん** · 2021/07/07(水) 06:44:52.69

>>67
チェザロ平均考えるとかかな
1万項の平均雑に計算したら-1.34までは収束してる感じ
https://ja.wikipedia.org/wiki/チェザロ平均

**デフォルトの名無しさん** · 2021/07/07(水) 07:00:20.59

>>67 Haskell
sums xs = scanl1 (+) xs
ss n = sums [cos k / log k | k <- [2..n]]
avr xs = sum xs / (fromIntegral $ length xs)
結果:
λ> avr $ ss 10000
-1.3422141860097583
(0.02 secs, 6,244,872 bytes)
λ> avr $ ss 100000
-1.3422187431198473
(0.21 secs, 61,066,720 bytes)
λ> avr $ ss 1000000
-1.3422195503566596
(1.97 secs, 609,383,904 bytes)
λ> avr $ ss 10000000
-1.3422195021937073
(48.08 secs, 6,092,457,440 bytes)
これ以上は厳しそうだから何か工夫しないといけないけど8桁辺りまでは収束してそう

**デフォルトの名無しさん** · 2021/07/07(水) 07:19:49.97

8桁って小数第七位ね

**デフォルトの名無しさん** · 2021/07/07(水) 19:16:52.25

この文献
https://www.kurims.kyoto-u.ac.jp/~kyodo/kokyuroku/contents/pdf/1084-4.pdf
をもとに C

#include <math.h>
#include <stdio.h>
int main(){
double p=12.0,q=7.0,s=0;
long n,nmax=166;
for(n=2;n<nmax;n++) s+=(cos(n)/log(n))*0.5*erfc(n/p-q);
printf("s=%-20.16lf, N=%d\n",s,nmax-2);
return 0;
}

s=-1.3422195101745578 , N=164

**デフォルトの名無しさん** · 2021/07/07(水) 20:36:04.14

>>67 収束する。

B_k := Σ[n : 2..k] cos(n)
|B_k| = |cos((k + 1) / 2) sin(k / 2) / sin(1 / 2) - (1 + cos(1))|
　(see https://math.stackexchange.com/questions/225941/proving-sum-limits-k-0n-coskx-frac12-frac-sin-frac2n12x)
　<= 1 / sin(1 / 2) + 1 + cos(1) ... (i)

a_n := 1 / log(n)
Σ[n : 2..∞] |a_{n + 1} - a_n|
　= Σ[n : 2..∞] |log(n / (n + 1)) / (log(n) log(n + 1))|
　<= Σ[n : 2..∞] |log(2) / log(n + 1)^2|
　< ∞ ... (ii)

lim a_n = 0 as n -> 0 ... (iii)

(i), (ii), (iii) よりアーベルの級数判定法の条件を満たすので所与の級数は収束する。

**デフォルトの名無しさん** · 2021/07/07(水) 21:23:56.34

>>72
すごい
あんまり読めてないけど交代級数じゃなくても使えるの？

**デフォルトの名無しさん** · 2021/07/07(水) 21:39:28.53

>>74
6節でFFTの計算とともに使ってるのでフーリエ級数全般に使えるはず

**デフォルトの名無しさん** · 2021/07/07(水) 22:23:37.48

>>5の2 Dart版
void main() {
DateTime today = new DateTime.now();
print(
"${today.year.toString()}/${
today.month.toString().padLeft(2,'0')}/${
today.day.toString().padLeft(2,'0')}/第${
((today.day + 6) / 7).floor()}${
{1:'月曜日',2:'火曜日',3:'水曜日',4:'木曜日',5:'金曜日',6:'土曜日',7:'日曜日'}[today.weekday]}/${
today.hour.toString().padLeft(2,'0')}:${
today.minute.toString().padLeft(2,'0')}/"
);
}

**デフォルトの名無しさん** · 2021/07/07(水) 22:51:04.45

>>75
やっぱり交代級数限定の話っぽいけど何で今回上手く行ってるのか良く分からない

**デフォルトの名無しさん** · 2021/07/21(水) 03:52:07.59

お題
2乗〜6乗
自然数nに対して方程式
n = p^2+q^3+r^4+s^5+t^6
の整数解をひとつ探し出す関数を実装せよ
例
-2 → [1,-2,1,0,0]
-1 → [1,-2,1,1,9]
0 → [1,-1,0,0,0]
1 → [1,0,0,0,0]
2 → [1,1,0,0,0]
100 → [2,0,0,2,2]
2021 → [3382713530574301803635446275486,-563785588429051426890762429768,2252569709434420,5488,750856569811473]

**デフォルトの名無しさん** · 2021/07/21(水) 04:00:54.83

訂正
-2 → [2,-2,1,1,0]
-1 → [0,-1,0,0,0]

**デフォルトの名無しさん** · 2021/07/21(水) 05:27:57.77

-1と-2は自然数じゃない

**デフォルトの名無しさん** · 2021/07/21(水) 13:17:19.10

>>80
ですな
-1,-2は抜いて
じゃ追加で
3→[1,1,1,0,0]
10→[1,2,1,0,0]
1000→[1,-3,1,4,1]
などなど

**デフォルトの名無しさん** · 2021/07/21(水) 16:30:29.39

>>81

n<=10^6 を力業で、先頭と最後の101件のみ表示

https://ideone.com/LjkJHe

**デフォルトの名無しさん** · 2021/07/21(水) 20:59:05.44

寧ろ定義域を整数全体にすれば？

**デフォルトの名無しさん** · 2021/07/21(水) 22:08:26.55

>>83
元々整数のつもりだったのが筆が滑りましたw
お好きな方でという事で
自然数に限定して楽になる事もないと思うけど

**デフォルトの名無しさん** · 2021/07/22(木) 03:13:11.19

>>78
Kotlin
https://paiza.io/projects/ZteBpLjf11ybdKK6tORg5Q

無念無想で何も考えずにただ作った。

**デフォルトの名無しさん** · 2021/07/22(木) 13:52:09.29

元の問題

面白い問題おしえて～な 37問目
https://rio2016.5ch.net/test/read.cgi/math/1624644393/543

元の問題は7乗まで使って桶だったけど6乗までの解答が出た

https://rio2016.5ch.net/test/read.cgi/math/1624644393/588

あくまでプログラムの話、数学の部分はどうでもいいという方は参考にして下さい
この方法はn-t^5-76843が6630の倍数になるような整数tが取れる事を使います(t:0〜6629の中で探す)

**デフォルトの名無しさん** · 2021/07/22(木) 20:25:25.04

>>86
5次以下にはできない証明は?

**デフォルトの名無しさん** · 2021/07/22(木) 20:30:40.90

>>87
それはまだ数学板では5以下でも可能も5以外では不可能もどっちも証明されてません

**デフォルトの名無しさん** · 2021/07/24(土) 11:44:46.01

お題: 端末上に地球を模した円の描画を行い、入力された緯度、経度のおおよその地点に印を付けろ
ただし描画される円の中心は常に日本の東京とし、東京が見えるようにすること
描画される円の大きさは自由とする
入力された座標が東京の裏側の半球上にあって印を描画できない場合は、印を描画しないか、あるいは円（地球）を透過させて印を描画する

地球の半径=6,371 km
東京の経度=139°41′30″
東京の緯度=35°41′22″

＊出題者は自分で実装してません

**デフォルトの名無しさん** · 2021/07/24(土) 11:48:58.50

>>89
画面の上を地球上のどの方位にするとか、平行投影なのか透視投影なのか画角どうするかとか決めないといけないんでないの？

**デフォルトの名無しさん** · 2021/07/24(土) 11:53:24.04

>>89
>>90
画面の上端を北とします
投影方法と画角はよくわからないので自由とします＾＾；

**デフォルトの名無しさん** · 2021/07/24(土) 12:18:19.24

地球は球体じゃないから無理じゃない？

**デフォルトの名無しさん** · 2021/07/25(日) 16:25:19.73

地形データってどっかから取って来れるの？そこも自作しろと？それとも地形描画なしのツルツルの地球で良い？

**デフォルトの名無しさん** · 2021/07/26(月) 04:06:01.70

いいよ

**デフォルトの名無しさん** · 2021/07/27(火) 08:42:26.61

>>5の2　JavaScript版
let today = new Date()
console.log(
today.getFullYear().toString() + '/' +
today.getMonth().toString().padStart(2,'0') + '/' +
today.getDate().toString().padStart(2,'0') + '/' +
'第' + ( Math.floor( ( today.getDate() + 6 ) / 7 ) ).toString() +
['日曜日', '月曜日', '火曜日', '水曜日', '木曜日', '金曜日', '土曜日'][today.getDay()] + '/' +
today.getHours().toString().padStart(2,'0') + ':' +
today.getMinutes().toString().padStart(2,'0') + '/'
)

96 · 2021/07/28(水) 13:12:24.23

>>20 Perl5、DPで解けないかなと考えてたけど、すぐには思いつかずnaiveな解法

use List::Util 'max';
my $m;
sub f {
　my ($a, $b, $c) = @_;
　return () if $m and $m <= $c;
　my $aa = $a * $c - $b;
　return ($m = $c) if 0 == $aa;
　my @s;
　if (0 < $aa) {
　　my $bc = $b * $c;
　　@s = f($aa, $bc, max(int($bc / $aa), $c + 1));
　　@s = ($c, @s) if @s;
　}
　my @t = f($a, $b, max(int($b / $a), $c + 1));
　if (@s and @t) {
　　$s[-1] < $t[-1] ? @s: @t;
　} else {
　　@s ? @s: @t;
　}
}
$m = 0; my @a = f(37, 60, 1);
printf "37 / 60 = %s\n", join ' + ', map{"1/$_"} grep{$_} @a;
#$m = 0; my @a = f(3, 1, 1);

実行結果
~ $ perl 20_20_re_expan.pl
37 / 60 = 1/4 + 1/5 + 1/6

なお、この解法だと 3/1 = は時間がかかりすぎて解けない

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

平面上に円をおくと、円周上に整数点ができることがあるが
それがちょうど47個の円の最小半径は?
ここで前にもあったとおもったが、答わからん

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

解き方がわからん。

**蟻人間** ◆T6xkBnTXz7B0 · 2021/08/11(水) 00:16:58.90

お題: (C/C++/Rust限定)
与えられたテキストファイルのエンコーディングを早く正確に判定するプログラムを作れ。
判定内容はASCIIのみ、UTF-8、UTF-16、Shift_JIS、バイナリのいずれかとBOMの有無とする。
ファイル先頭にBOMがある場合はBOMの意味を優先するものとする。
ASCIIではない場合はファイル先頭より256バイト以降は無視するものとする。
テキストファイルがUTF-8かShift_JISか区別できないときはUTF-8の判定を優先するものとする。
判定にかかった時間をミリ秒単位で測定せよ。
UTF-16 BEとEUC-JPはバイナリとみなしてもよい。

**デフォルトの名無しさん** · 2021/08/11(水) 19:57:42.99

宿題は自分でやれ

**デフォルトの名無しさん** · 2021/08/11(水) 23:48:46.02

ザリガニが見ていた...。　QuickDrawはどのように素早く円を描いていたのか？
https://zariganitosh.hatenablog.jp/entry/20100318/1269006632

**デフォルトの名無しさん** · 2021/08/12(木) 04:41:39.82

昔々グラフィックス画面に直線を描くアルゴリズム調べた時は感動したな。あれは40年ぐらい前か。月日の経つのは早いものぢゃ。

**デフォルトの名無しさん** · 2021/08/12(木) 09:29:17.38

お題
文字列を入力として受け取って
入力された文字列と、入力された文字列を逆順にした文字列を
1文字ずつ交互に結合した文字列を出力してください

入力： abcde
出力： aebdccdbea

**デフォルトの名無しさん** · 2021/08/12(木) 10:08:21.06

>>103 Ruby

'abcde'.size.times{$><<s[_1]<<s[~_1]} # => aebdccdbea

**デフォルトの名無しさん** · 2021/08/13(金) 03:01:45.42

>>103
Haskell

import Data.List
acbbca x = concat $ transpose [ x , reverse x ]
main = do
putStrLn $ acbbca "Hello World"
putStrLn $ acbbca "たけやぶやけた"

----
HdellrlooW WoolrlledH
たたけけややぶぶややけけたた

**デフォルトの名無しさん** · 2021/08/13(金) 03:35:13.90

なんかこういうのはhaskellのlensが得意そうな気がするな
この前Intのリストの奇数だけソートするのを
sortArray xs = xs & partsOf (each . filtered odd) %~ sort
だけで済ましてるのを見た

**デフォルトの名無しさん** · 2021/08/13(金) 11:47:55.66

>>103 octave
https://ideone.com/vpOPSb
f = @(s) [s; flip(s)](:)';
f('abcde')

96 · 2021/08/13(金) 12:16:45.65

>>103 Perl5

@b = reverse @a = split'', 'abcde';
use List::MoreUtils 'zip';
print zip @a, @b;

実行結果
~ $ perl 20_103.pl
aebdccdbea

**デフォルトの名無しさん** · 2021/08/13(金) 18:31:56.72

>>103
Kotlin
https://paiza.io/projects/E21KbVl4H2KbA1kjxYhNug

**デフォルトの名無しさん** · 2021/08/13(金) 18:54:31.59

>>103
C
https://paiza.io/projects/VF7q0iIqRNj-K-9wfd-OYg

>>109と出力が同じになるようにした。
それと、折角なので wchar で作った。

**デフォルトの名無しさん** · 2021/08/13(金) 20:49:58.92

>>103 J
f =: ,@(,. |.)

___ f 'abcde'
aebdccdbea

**sage** · 2021/08/13(金) 23:42:35.13

>>104
Rbuy 3.0.2 だと s が未定だと怒られる

**デフォルトの名無しさん** · 2021/08/14(土) 12:38:10.02

>>36 octave
https://ideone.com/YRTUpL
function [c, w] = f(y, m, dow)
c = calendar(y, m);
w = {'日' '月' '火' '水' '木' '金' '土'};
if dow == 1
a = (c')(:);
b = [-1 6](1 + (a(1) == 1));
c = reshape(circshift(a, b), flip(size(c)))';
w = circshift(w, -1, 2);
end
end
function g(y, m, dow)
[c, w] = f(y, m, dow);
disp(strjoin(cellfun(@(s) {sprintf('%6s', s)}, w), '')), disp(c)
end

**デフォルトの名無しさん** · 2021/08/17(火) 02:41:19.70

お題: 菅話法作成

例
Kotlin
https://paiza.io/projects/ezYPpZR8VOLY5r3jCOS5qw

**デフォルトの名無しさん** · 2021/08/17(火) 19:49:43.89

>>114 Ruby

$><<%W[「中止の考えはない。強い警戒感を持ってに臨む」\n「バブル方式でする。感染拡大の恐れはないと認識している」]*gets.chop

96 · 2021/08/17(火) 22:38:15.40

>>114 Perl5

$it="うっふ～ん";
print<<EOF;
「中止の考えはない。強い警戒感を持って${it}に臨む」
「バブル方式で${it}する。感染拡大の恐れはないと認識している」
「コロナに打ち勝った証として${it}する」
「${it}を中止することは一番簡単なこと、楽なことだ。${it}に挑戦するのが国民の役割だ」
「安心安全な${it}に向けて全力で取り組む」
「不要不急かどうかは本人が判断すべきだ」
EOF

実行結果
$ perl 20_114_菅話法.pl
「中止の考えはない。強い警戒感を持ってうっふ～んに臨む」
「バブル方式でうっふ～んする。感染拡大の恐れはないと認識している」
「コロナに打ち勝った証としてうっふ～んする」
「うっふ～んを中止することは一番簡単なこと、楽なことだ。うっふ～んに挑戦するのが国民の役割だ」
「安心安全なうっふ～んに向けて全力で取り組む」
「不要不急かどうかは本人が判断すべきだ」

**デフォルトの名無しさん** · 2021/09/03(金) 01:55:54.93

半月ぐらいお題が出ないので一つ。

お題: テトロミノ

こんなパズルを解く。
https://ja.wikipedia.org/wiki/%E3%83%86%E3%83%88%E3%83%AD%E3%83%9F%E3%83%8E

大きさもピースも任意だが、上記ページにあるやつそのままで良い。(2つあるがどちらか一つで良い)
沢山パターンがあるかも知れないが、最初に見つかった一つを出すだけでも良い。
出力はテキストでも何でも人間が見て分かるようになってれば良い。

この問題については既にあちこちで答えが出ているような枯れた問題だと思うので、なるべく何も見ずに自分で考えて作ること。

**蟻人間** ◆T6xkBnTXz7B0 · 2021/09/03(金) 20:43:43.19

お題:15パズルを解くプログラム。

15パズルの盤を16要素の配列で表現し、実際に解く様子を出力せよ。空白は整数のゼロで表現する。
解けないときは「No answer」を出力せよ。可能ならば画像データも出力せよ。

参考資料:
http://www.studio-boiler.com/k/kouryaku/kou.htm

**デフォルトの名無しさん** · 2021/09/04(土) 00:30:45.45

猿真似しか出来んのか

**デフォルトの名無しさん** · 2021/09/04(土) 02:42:13.50

全然お題が出なかったからこれで良い

**デフォルトの名無しさん** · 2021/09/04(土) 15:54:45.82

最短でも80手らしい
それくらいだと全部表示してもそこまでうるさくないんだけど簡単な探索法だと2,300超えてしまいそう
全部表示したらうるさい事この上ないんだよな