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

---

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

---

551: 2019/09/22(日)21:30:08.53 ID:WdPSTicU(1) AAS
>>521-523 ruby 2.5.5
外部ﾘﾝｸ:ideone.com
・令和対応はRuby 2.6.3から

---

560(1): 2019/09/22(日)22:48:43.53 ID:Yf8464Y3(1/3) AAS
>>548 Perl5、なお>>550は(utimeを使えばできますが)回答は作成いたしません

use File::Find 'find';
sub hier {
　my $mtime = (lstat)[9];
　push @epochs, $mtime if -f _;
}
find({wanted => \&hier}, "$ENV{USERPROFILE}/My Documents");
@w = ([],[],[],[],[],[],[]);
for (@epochs) {
　($sec, $min, $hour, $wday) = (localtime $_)[0..2,6];
省20

---

746: 2019/10/11(金)22:44:43.53 ID:poa9EnRO(1) AAS
すんごく二項定理っぽい数字の並び方をしてる

---

833(1): 2019/10/23(水)20:53:09.53 ID:oBmkNBH8(1/3) AAS
>>832 octave
外部ﾘﾝｸ:ideone.com

---

923: 2019/11/04(月)19:35:11.53 ID:6jo2x8my(1/2) AAS
>>917
PowerShellで単純に書けば

function f($a, $b, $s) {$a..$b |? {(iex ([char[]]"$_" -join "+")) -eq $s}}
f 1 100 12

だが、桁が増えると遅すぎるので、少し工夫すると、

$M = [Math]

function g($s, $n)
{
　　if ($n -eq 1) {return $s}
　　$d = $M::pow(10, $n - 1)
省9

---

925: 2019/11/05(火)01:53:14.53 ID:gnRgB6kn(1) AAS
>>909
Kotlin
外部ﾘﾝｸ:paiza.io

肝心な部分は短いよな・・・

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.239s*