豆お(´・ω・`)ブログ(パート2)

誰にも読めるが誰も読んでくれないブログ

Lisp で書いた素数を表示するプログラム

(defun pn ()
   (setq i 2)
   (loop
       (if (= i 10000) (return))
       (setq f 0)
       (setq j 2)
       (block loop2
           (loop
               (if (= i j) (return-from loop2))
               (if (= (rem i j) 0) (setq f 1))
               (setq j (+ j 1))
           )
       )
       (if (= f 0) (print i))
       (setq i (+ i 1))
   )
)

初めて Lisp で書いてみました。Lisp らしいプログラムになっているのかそれはよく分かりませんが。CLisp を使ったのですが while 文が使えないようです。

何か新しいプログラミング言語を習得してみようと書いたものですが while 文が使えないと厳しいものがあります。

結局いまは Java でも始めてみようかと思っているところです。

フラグをセットしたらループから脱出させたほうが計算が速いのですがそのままにしてあります(無駄な計算をしています)。if 文の後ろに2つ文を書く方法がわからなかったもので。。

2から10000までの素数を表示するプログラム(C言語)

とじかっこが一つ足りませんね。。バグです(笑)。。

この瞬間を深く生きること。。この瞬間に深く在ること。。

人物Aの不在証明はできる

人物Aは同時に2箇所に存在できないのであるから地点Bに存在していれば地点Cに存在していないことは自明の理である。

人物Aの不在証明と言うと透明人間だったらどうなるんだとか分身の術が使えたらどうするんだと言う人が出てくるがそれはちょっと話がおかしい。

結局は人物Aの定義によるのだ。人物Aを普通の人間(=同時に2箇所に存在することはできず透明人間でもなければ分身の術も使えない)と定義すれば不在証明はできるのである。

神の不在証明ができるか否かは神の定義による

わざわざ不在証明できないように定義して、やっぱり不在証明はできなかったというのは無意味である。不在証明できる場合も同様である。

CentOS7 に Google Chrome をインストールするときの備忘

CentOS7 に Google Chrome をインストールするとき下記のサイトが役に立ちました。

kwski.net

ページを削除されると困るのでここに備忘のため書き写しておきます。これでOKです。Chrome が好きなので大変助かっています。

# wget http://chrome.richardlloyd.org.uk/install_chrome.sh
# chmod u+x install_chrome.sh
# ./install_chrome.sh

CentOS6 32bit 版に DenyHosts をインストールするときの備忘

CentOS6 32bit 版に DenyHosts をインストールするときに以下のサイトが役に立ちました。

www.digitalocean.com

ページを削除されると困るので備忘のためここに書き写しておきます。以下の2行を実行したらあとは他のサイトを参考に設定を行うだけです。

sudo rpm -Uvh http://mirror.metrocast.net/fedora/epel/6/i386/epel-release-6-8.noarch.rpm
sudo yum install denyhosts

こころと四次元空間の交わるところ、それが脳です

四次元空間と直交する方向にこころの空間が広がっています。こころと四次元空間の交わるところ、それが脳です。脳はこころの四次元空間的表現です。四次元空間と交わらないこころは魂や霊と呼ばれます。

こころの集合「大きなこころ」と四次元空間の交わったところ、それがこの宇宙です。

ダイエットを始めました

今日2015年2月28日からダイエットを始めました。備忘のため書いておきます。

ダイエットの主役は難消化性デキストリン。もともとは腸内環境を整えるために食物繊維をと思って買ったのですがぐぐってみるとダイエットや中性脂肪、内臓脂肪にも効果があることを発見。早速ダイエットしてみることにしました。1回7.5gを1日4回摂って1日30g。。ちなみに現在体重は97kgです。。

さてどこまで効果がありますやら。。