(define (analyze-rpn rpn)
  (define (iter r)
    (if (null? r)
        (pop)
        (let ((e (car r)))
          (cond ((eq? e '+) (let ((addend (pop)))
                              (push (sort-rpn (pop) e addend))))
                ((eq? e '-) (let ((subtrahend (pop)))
                              (push (list (pop) e subtrahend))))
                ((eq? e '*) (let ((multiplier (pop)))
                              (push (sort-rpn (pop) e multiplier))))
                ((eq? e '/) (let ((divisor (pop)))
                              (if (and (number? divisor) (= divisor 0))
                                  (error "attempt to calculate a division by zero")
                                  (push (list (pop) e divisor)))))
                (else (push e)))
          (iter (cdr r)))))
  (init-stack)
  (guard (e ((<error> e) nil))
         (iter rpn)))

2018-08-12

windows update が壊れてた件

お盆休みで暇なので、「Xamarin.Forms でアンドロイドアプリでも作ってみっか！」と思って、いろいろいじくっていたところ、.NET Framework のパッチがあったら当てとくかなと思い、久々に Windows Update を開いたら、なんかバグって止まってました。そういや最近、しばらく Windows Update 当たってないような気がしてたんだよね。

(null)のソフトウェアについての詳細を確認します。

なんて出てるし、[更新プログラムの確認]ボタンを押しても、サービスが起動してないから出来ない、とか言ってくる。「(null)」とか出てる時点で明らかに変！

でもググったら解決方法がすぐ見つかって直りました。

Windows Update は、うちだけじゃなくて、あっちこっちでもバグってるらしい。

.NET Framework を最新にしたら、Xamarin.Forms プロジェクトでビルドエラーが出なくなった。気になってた問題が解決して良かった。しかし、今は Visual Studio を使って C# だけで iPhone と Android 両方アプリ作れてしまうとは、便利な時代になりましたなー。

2018-08-11

VS2017 ユニットテストがうんともすんとも動かない時の対処法

メニューから

[テスト]→[テスト設定]→[既定のプロセッサ　アーキテクチャ]

と選ぶ。

これがテストするプロジェクトの「プラット　フォームターゲット」

と合ってないせい。これを合わせればテストが動く。

VS2017 はテストが実行出来てないのにメッセージを何も出さず、

しれっとテストの実行を諦めるので、原因特定が難しいというワケ。

どうしてテストが実行できなかったのかメッセージぐらい出しなさい。

まったくタチが悪い。

umeajiのブログ

心に響く

XFが遅すぎる(その後)

エクスプローラーでドライブを右クリックすると応答なしになる

XFが遅すぎる

チケットナンバー問題の回答の最適化バグ修正のバグ修正

windows update が壊れてた件

VS2017 ユニットテストがうんともすんとも動かない時の対処法