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

---

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

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

559(5): 蟻人間 ◆T6xkBnTXz7B0 2019/09/22(日)22:44 ID:rZK31NHQ(3/5) AAS
お題: 自分のプログラムファイルが何バイトかを表示せよ。

---

563: 蟻人間 ◆T6xkBnTXz7B0 2019/09/22(日)23:00 ID:rZK31NHQ(4/5) AAS
>>559
はいはい、模範解答出せばいいんでしょ？

// C++/Win32
#include <windows.h>
#include <stdio.h>
int main(void)
{
char buf[MAX_PATH];
GetModuleFileNameA(NULL, buf, MAX_PATH);
WIN32_FIND_DATAA find;
省5

---

564: 蟻人間 ◆T6xkBnTXz7B0 2019/09/22(日)23:03 ID:rZK31NHQ(5/5) AAS
>>559 別解ね。
/* C */
#include <stdio.h>
int main(int argc, char **argv)
{
FILE *fp = fopen(argv[0], "rb");
fseek(fp, 0, SEEK_END);
printf("%ld bytes\n", ftell(fp));
fclose(fp);
return 0;
省1

---

565: 2019/09/22(日)23:10 ID:Yf8464Y3(2/3) AAS
>>559 Perl5

print -s $0, "bytes\n";

実行
~ $ perl 15_559.pl
25bytes

---

573: 2019/09/23(月)04:00 ID:Sp7ybd6s(1) AAS
>>559 Common Lisp
外部ﾘﾝｸ:ideone.com (sbcl)
外部ﾘﾝｸ:ideone.com (clisp)

ideoneは、sbclの場合は compile-file で作成したファイルを実行しているらしく
結果が異なっているのはそのため

---

600: 2019/09/28(土)15:36 ID:E6lKnilk(3/4) AAS
>>559
外部ﾘﾝｸ:coliru.stacked-crooked.com
C++。C++17がいる。結構サクッとかけたな。

---

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

---

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

---

ぬこの手 ぬこTOP 0.046s