2006-10-02
_ AngelScript
なんか珍しいなぁ… どう見ても C ですありがとうございましたみたいな。
http://www.angelcode.com/angelscript/sdk/docs/manual/index.html
(17:13)
_ cpuid
http://www.paradicesoftware.com/specs/cpuid/cpuid.htm#chapter7
int main() {
union {
struct {
int eax, ebx, edx, ecx;
} x;
char buf[17];
} u;
int family, model, efamily, emodel;
int begin, end;
u.buf[16] = '\0';
__asm__("movl $0, %%eax\n"
"cpuid\n"
"movl %%eax, %0\n"
"movl %%ebx, %1\n"
"movl %%ecx, %2\n"
"movl %%edx, %3\n"
: "=m"(u.x.eax), "=m"(u.x.ebx), "=m"(u.x.ecx), "=m"(u.x.edx));
printf("%x %x %x %x %s\n", u.x.eax, u.x.ebx, u.x.edx, u.x.ecx, &u.buf[4]);
__asm__("movl $1, %%eax\n"
"cpuid\n"
"movl %%eax, %0\n"
"movl %%ebx, %1\n"
"movl %%ecx, %2\n"
"movl %%edx, %3\n"
: "=m"(u.x.eax), "=m"(u.x.ebx), "=m"(u.x.ecx), "=m"(u.x.edx));
family = (u.x.eax >> 8) & 15;
model = (u.x.eax >> 4) & 15;
efamily = (u.x.eax >> 20) & 15;
emodel = (u.x.eax >> 16) & 15;
printf("%d %d %d %d\n", family, model, efamily, emodel);
__asm__("rdtsc\n" : "=A"(begin));
sleep(1);
__asm__("rdtsc\n" : "=A"(end));
printf("%d Hz\n", end-begin);
}
Celeron 1.7GH
2 756e6547 49656e69 6c65746e GenuineIntel 15 2 0 0 1698587708 Hz
Duron 800MHz
1 68747541 69746e65 444d4163 AuthenticAMD 6 7 0 0 798429380 Hz
Intel(R) Pentium(R) M processor 2.00GHz (さくら)
2 756e6547 49656e69 6c65746e GenuineIntel 6 13 0 0 2001028995 Hz
もうちょい新しいリストを探さんと意味ねえような。
(18:59)
_ 今日の rlwrap
i@u ~> rlwrap rlwrap rlwrap rlwrap rlwrap rlwrap rlwrap rlwrap rlwrap rlwrap rlwrap rlwrap rlwrap rlwrap rlwrap rlwrap rlwrap rlwrap rlwrap ocaml
Objective Caml version 3.10+dev8 (2006-06-26)
# print_int 1;;
1- : unit = ()
(21:57)
[ツッコミを入れる]
_ Gus [やばい (バイナリ) は面白すぎます。何を書いたんですか?]
_ shinh [比較的私が健闘できている、 http://codegolf.com/crossword の回答です。正攻法を避けて一..]