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

---

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

---

525: 524 2019/09/21(土)22:29 ID:y97V3EOz(2/2) AAS
>>524

Time::Piece->strptime は
1900/01/01 よりも前の日付だと
正しい西暦の年月日を入力しても
parse結果が不定となってしまうということがさっき分かりました。
したがって残念ながら>>524のcodeは>>522の題意を満たしているとは
言いがたいものでした。ｺﾞﾒﾝね〜

---

526: 2019/09/21(土)22:37 ID:tuxPF//K(1/2) AAS
>>521-523 Java
https://ideone.com/5XMVPB

---

527(1): 蟻人間 ◆T6xkBnTXz7B0 2019/09/21(土)22:44 ID:7nrsNPcd(1) AAS
令和1年を令和元年にしないといけないという落とし穴があるようだ。

---

528: 2019/09/21(土)22:45 ID:Awwp+36u(1) AAS
>>504 Ruby

p $<.map(&:chomp).yield_self{|e| e.uniq.map{|v| [v, e.count(v)]}}

# => [["Hoge", 2], ["Fuga", 3], ["Foo", 2], ["Bar", 1]]

---

529: 2019/09/21(土)23:03 ID:tuxPF//K(2/2) AAS
>>527 Java
https://ideone.com/q1JPJ5
しゅうせいしまった

---

530: 2019/09/22(日)01:12 ID:35++XhB6(1/6) AAS
>>496 Squeak Smalltalk

#('a b c 44' 'x y 33' 'z 22' '11') sortBy: [:x | x splitInteger last] ascending

"=> an OrderedCollection('11' 'z 22' 'x y 33' 'a b c 44') "

---

531: 2019/09/22(日)01:25 ID:35++XhB6(2/6) AAS
>>504 Pharo/Squeak Smalltalk

'Hoge
Fuga
Foo
Fuga
Foo
Hoge
Bar
Fuga' lines asBag sortedElements

"=> {'Bar'->1 . 'Foo'->2 . 'Fuga'->3 . 'Hoge'->2} "

---

532: 2019/09/22(日)01:56 ID:35++XhB6(3/6) AAS
>>467 Pharo/Squeak Smalltalk

| fn |

fn := [:str | String streamContents: [:ss |
(str as: RunArray) runsAndValuesDo: [:n :x |
ss nextPut: x; nextPutAll: (n = 1 ifTrue: [''] ifFalse: [n asString])
]
]].

fn value: 'あいうえお'. "=> 'あいうえお' "
fn value: 'ああいいうう'. "=> 'あ2い2う2' "
fn value: 'あいうあいう'. "=> 'あいうあいう' "

---

533(1): 2019/09/22(日)08:19 ID:uuB9aO9i(1/2) AAS
>>514 Ruby

suffixes = %w[th st nd rd]
f = -> n {(-(-((n - 10) / 10 % 10) / 9)) * 41 / (n % 10 * 10 + 11) * (n % 10)}

[
　　1, 2, 3, 4, 11, 12, 13, 21, 22, 23, 101, 102, 103, 111, 112, 113, 121, 122, 123
].each{|v| puts '%1$d => %1$d%2$s' % [v, suffixes[f[v]]]}

# =>
1 => 1st
2 => 2nd
3 => 3rd
省16

---

534(1): 2019/09/22(日)08:57 ID:yY5QhyPL(1) AAS
>>533
ruby知らんけどそのfって何？

---

535(1): 2019/09/22(日)09:05 ID:8u0YwnlN(1) AAS
ラムダ式じゃねーの
おれもruby知らんが

---

536: 2019/09/22(日)09:16 ID:W3ewN8v1(1/4) AAS
(dolist (n (list 1 2 3 11 12 13 21 22 23 101 102 103 111 112 113 121 122 123) ) (format t "~:R~%" n))
first
second
third
eleventh
twelfth
thirteenth
twenty-first
twenty-second
twenty-third
省9

---

537: 2019/09/22(日)09:21 ID:uuB9aO9i(2/2) AAS
>>534-535
ラムダ式.
任意の自然数 n に対して次の式は n の序数詞の末尾が th なら 0, st なら 1, nd なら 2, rd なら 3 を返す.(除算は切り捨て)
(-(-((n - 10) / 10 % 10) / 9)) * 41 / (n % 10 * 10 + 11) * (n % 10)

---

538: 2019/09/22(日)10:14 ID:UtdvR7ZT(1) AAS
>>514 Lua
function f(n)
　　 local r,x
　　 x=n%10
　　 if n%100-x==10 or x<1 or x>3 then
　　 r="th"
　　 else
　　 r=({"st","nd","rd"})[x]
　　 end
　　 return n..r
省1

---

539: 2019/09/22(日)11:43 ID:OEThTvH6(1/2) AAS
>>514 JavaScript
const f=n=>n+=[,'st','nd','rd'][n%100>>3^1&&n%10]||'th'
実行結果略

---

540: 2019/09/22(日)11:51 ID:OEThTvH6(2/2) AAS
>>522 >>521 JavaScript
const isValid = seireki => {
let check
try {
check = new Intl
.DateTimeFormat('ja-JP', {year: 'numeric', month: '2-digit', day: '2-digit'})
.format(new Date(seireki))
} catch (e) { return false }
return seireki === check ? true : false
}
省22

---

541(3): 2019/09/22(日)14:55 ID:yzO2ACAf(1/4) AAS
>>521-523 Perl5

use Time::Piece; #use Data::Dump 'dump';
@fy = (['2019/05/01', '令和'], ['1989/01/08', '平成'], ['1926/12/25', '昭和'], ['1912/07/30', '大正']);
$$_[0] = Time::Piece->strptime($$_[0], '%Y/%m/%d') for @fy;
for (qw{1970/01/05 1990/12/31 2019/04/28 2019/05/01 1920/02/29 1912/07/29 2019/02/29}) {
　my ($t, $t0, $era, $nen);
　eval {$t = Time::Piece->strptime($_, '%Y/%m/%d')};
　if ($t and $t->strftime('%Y/%m/%d') eq $_) {
　　do {($t0, $era) = @$_, last if $$_[0] <= $t} for @fy;
　　if ($t0) {
省19

---

542: 2019/09/22(日)14:59 ID:yzO2ACAf(2/4) AAS
>>541
一行目のｺﾒﾝﾄ
#use Data::Dump 'dump';
はdebugの際に使ったstatementの消し忘れにつき、不要

---

543: 2019/09/22(日)15:13 ID:yzO2ACAf(3/4) AAS
>>541
$nen = ($y = $t->year - $t0->year, $y ? $y + 1 : '元').'年' if $t0;
の「 if $t0」も削除し忘れだな、ｺﾞﾒﾝﾁｬｲ

---

544(1): 2019/09/22(日)16:19 ID:iYBBHKU1(1) AAS
https://github.com/systemd/systemd/blob/82d1264048a3768fb8238387810f78c5d3912058/src/journal/journalctl.c#L2405-L2461
このif elseの羅列をリファクタリングしてください(´・ω・`)

---

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

---

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

---

ぬこの手 ぬこTOP 0.013s