Host introspection: Difference between revisions
Content deleted Content added
Applesoft BASIC |
No edit summary |
||
Line 341:
where
bitsize = show $ bitSize (undefined :: Int)</lang>
=={{header|Icon}} and {{header|Unicon}}==
<lang unicon>procedure main()
write(if 0 = ishift(1,-1) then "little" else "big"," endian")
if match("flags",line := !open("/proc/cpuinfo")) then # Unix-like only
write(if find(" lm ",line) then 64 else 32," bits per word")
else write("Cannot determine word size.")
end</lang>
Sample run:
<pre>
->hi
little endian
64 bits per word
->
</pre>
=={{header|J}}==
|