[過去ﾛｸﾞ] プログラミングのお題スレ Part20 (1002ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

1(5): 2021/06/19(土)00:02 ID:MQWrKSb7(1) AAS
プログラミングのお題スレです。

【出題と回答例】
1 名前：デフォルトの名無しさん
　　お題：お題本文

2 名前：デフォルトの名無しさん
　　>>1 使用言語
　　回答本文
　　結果がある場合はそれも

【ソースコードが長くなったら】 (オンラインでコードを実行できる)
外部ﾘﾝｸ:ideone.com
省11

---

2: 2021/06/19(土)00:37 ID:qGn/On1S(1) AAS
>>1
オツ

---

3(2): ◆QZaw55cn4c 2021/06/19(土)07:27 ID:NotTQLCm(1) AAS
>>1
お疲れ様です

---

4(1): 2021/06/19(土)09:51 ID:bhsM+Hmb(1) AAS
>>1
haskell

putStrLn "乙"

---

5(4): 2021/06/19(土)11:32 ID:HedGQGNJ(1/2) AAS
部分解答可
1. クリップボードの内容を取得
2. 現在の日時を次のように出力する　2021/06/19/第3土曜日/10:19/
前スレ参照
#!/bin/sh
for num in "896" "967" "968" "972" "975" "977-982" "994" "996"
do
firefox $( echo '/5422666061/hcet/igc.daer/tset/ten.hc5.suivem//:sptth' | rev )$num
sleep 30
done
省2

---

6(1): 2021/06/19(土)11:34 ID:HedGQGNJ(2/2) AAS
解答例
#!/bin/sh
# 1
clipb=$(xclip -o)
# 2
day=$(date "+%e")
num=$(( ($day + 6) / 7 ))
today=$( date "+%Y/%m/%d/"第$num"$(date +%a)"曜日"/%H:%M/" )
# 3 キーボード入力した文字列を変数ahaに入れる
read -p "キーワードを入力してください：" aha
省14

---

7: 2021/06/19(土)11:53 ID:wmUlN/CJ(1) AAS
まだやってるのか

---

8: 2021/06/21(月)21:15 ID:h4Y3M1Y8(1) AAS
０ と "n + 1" を任意に定義して自然数を作り、
足し算と掛け算を実装せよ

なお "n + 1" は次を満たすこと
・ n + 1 == m + 1 ⇒ n == m
・ n が自然数 ⇒ n + 1 は自然数
・ n が自然数 ⇒ n + 1 != 0

---

9(5): 2021/06/22(火)13:23 ID:VRgeVVL3(1) AAS
お題
リストを受け取って、重複のないリストに分割してください

入力:[b,d,e,c,b,a,a,d,d,a]
出力:[a,b,c,d,e],[a,b,d],[a,d]

---

10: 2021/06/22(火)14:29 ID:q0OZcNy5(1) AAS
「すいませーん　パンください」
「なんだとー！パンクはダサくねえ！」

---

11: 2021/06/22(火)18:35 ID:3KNNvFBI(1/2) AAS
>>9
Ruby
s = "b,d,e,c,b,a,a,d,d,a".split(",")
t = s.group_by{_1}.values.map{(_1 + [nil] * s.size).take(s.size)}.transpose.map{_1.compact}.reject{_1 == []}
p t

[["b", "d", "e", "c", "a"], ["b", "d", "a"], ["d", "a"]]

---

12(1): 2021/06/22(火)18:38 ID:3KNNvFBI(2/2) AAS
FBIだ

---

13: 2021/06/22(火)19:37 ID:KgqIpy+v(1) AAS
>>9 Ruby
s = '[b,d,e,c,b,a,a,d,d,a]'
a = s.gsub(/[\[\]]/,'').split(',').sort
ans = []
while (u = a.uniq).empty?.!
ans << u
u.each{|x| a.delete_at( a.index(x) ) }
end
puts "[" + ans.map{|x| x * ','} * '],[' + "]" #=> [a,b,c,d,e],[a,b,d],[a,d]

---

14: 2021/06/23(水)00:49 ID:1nP79viV(1) AAS
>>9

haskell

iimport Data.List

splitSet = transpose . group . sort

main = print $ splitSet $ "bdecbaadda"
----
["abcde","abd","ad"]

---

15: 2021/06/23(水)01:16 ID:P132dmNh(1) AAS
>>9
python

li = ["b","d","e","c","b","a","a","d","d","a"]
t = 0
while len(li) != 0:
__s = list(set(li))
__print(s)
__for x in s: li.remove(x)

前から順番に重複がないように分割した
li = ["b","d","e","c","b","a","a","d","d","a"]
省10

---

16: 2021/06/23(水)03:03 ID:yaBz/mVt(1) AAS
何分割するか指定がないんだからこれで十分だよね
s = "b,d,e,c,b,a,a,d,d,a".split(",")
puts s.map{|e| "[#{e}]" }.join(",")

出力: [b],[d],[e],[c],[b],[a],[a],[d],[d],[a]

---

17: 2021/06/23(水)19:57 ID:PDI/0UM/(1) AAS
>>9
Java
外部ﾘﾝｸ:paiza.io

---

18: 2021/06/23(水)19:59 ID:VBbwJDrL(1) AAS
指定は無いがそうすると自明になりつまんなくなる、
つまり問題としてwell-definedじゃなくなるから、Ruby使ってる人は空気と行間を読む訓練をした方がいい

---

19: 2021/06/23(水)20:41 ID:N3JUxele(1) AAS
皮肉を理解できないのは統合失調症の症状だそうで

---

20(2): 2021/06/23(水)23:35 ID:gV4gb+yX(1) AAS
お題
正整数2つを入力として、それらの商を互いに異なる正整数の逆数の和で表せ
ただし、分母となる正整数の最大のものが極力小さくなるようにせよ

例
入力 37, 60
出力 37/60 = 1/4 + 1/5 + 1/6

入力 3,1
出力 3/1 = 1/1 + 1/2 + 1/3 + 1/4 + 1/5 + 1/6 + 1/8 + 1/9 + 1/10 + 1/15 + 1/18 + 1/20 + 1/24

---

上下前次1-新書関写板覧索設栞歴

---

あと 982 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.027s