MacBookAir 一寸したことでFANが全開で回る2011/08/01 08:25

簡単にCPUがフル稼働していしまい。筐体温度が上がってFANが回る

reniceで負荷の高いプロセスの優先度を下げてみたがTBが働くと

CPU全開で 全く効果が無い。

筐体を冷やすしかFANの音を止められないのかな?

ituneで音楽とか動画が FANの音が大きすぎて聞きづらい

竹内関数(たらい回し関数)をrubyで動かす2011/08/01 22:28

竹内関数を MacBooKPro(2011)で動かす

Ruby 1.9.2-p290で動かしました。スレッドで動かないので

8すれどあるのに1つだけが 100%に上がってました。

macRubyはスレッド実行できるか 調べて見亜ミズ卯

# --- source start ---
def tak( x , y , z )
if x <= y
y
else
tak( tak( x - 1 , y , z ) , tak( y - 1 , z , x ) , tak( z - 1 , x , y ) )
end
end

x , y , z = ARGV.map { |arg| arg.to_i }
tak = tak( x , y , z )
puts "tak(#{x}, #{y}, #{z}) = #{tak}"
# --- source end ---

実行結果
$time ruby tak.rb 12, 6, 0
tak(12, 6, 0) = 12

real 0m1.300s
user 0m1.296s
sys 0m0.005s
$ time ruby tak.rb 13, 6, 0
tak(13, 6, 0) = 13

real 0m8.607s
user 0m8.604s
sys 0m0.009s
$ time ruby tak.rb 14, 8, 0
tak(14, 8, 0) = 14

real 1m11.017s
user 1m11.018s
sys 0m0.056s

Lion 環境でのguest OS debian 6.02011/08/02 09:59

Lion環境だとまだ Clisp Gaucheがインストール出来ないので

VM環境でdebian 6.0.2を入れてみた

ネットワークインストールですんなり入ったのだが

VMtoolで

入れるべきモノが 

gcc-4.3 (defaultでgcc-4.4なので kanelのモジュールが作成出来ない)

kernel-source,kernel-header

Debianのkernel-dev等

# apt-get install gcc-4.3 linux-headers-`uname -r` -y

7月の消費電力2011/08/11 11:16

7/13−8/10までの消費電力196kWh

電力料金上がっているので 4570円だった

ありゃ scheme2011/08/13 01:35

Gauche 0.9.2になって Lionでmake出来た

Racketも5.1.2でlionで動いたが

(cons (cons 'sin (cons 'x ())) (cons 'cos (cons 'y ())))
で おかしい

gosh> (cons (cons 'sin (cons 'x ())) (cons 'cos (cons 'y ())))
((sin x) cos y)
gosh>

Racketだと
(cons (cons 'sin (cons 'x ())) (cons 'cos (cons 'y ())))
. #%app: missing procedure expression; probably originally (), which is an illegal empty application in: (#%app)

mit-scheme 9.0.1だと
Release 9.0.1 || Microcode 15.1 || Runtime 15.7 || SF 4.41 || LIAR/C 4.118
Edwin 3.116

1 ]=> (cons (cons 'sin (cons 'x ())) (cons 'cos (cons 'y ())))

;Value 2: ((sin x) cos y)