ズッキーニのプログラミング実験場

プログラミング + アカデミック + 何か面白いこと。 記載されているものは基本的に私が所属する団体とは関係がありません。

   Jul 13

[Coq]証明駆動開発で2値化 part1

by zuqqhi2 at 2013年7月13日
Pocket

やりたいこと

証明駆動開発で画像の2値化(白か黒の2種類の値のみにする)をする関数を作成してみる。

Coq

とりあえず2値化関数をCoqで定義する。

Require Import List.
Require Import Arith.

Fixpoint binarize (l : list nat)(th : nat) : list nat :=
  match l with
  | nil => nil
  | x::xs => if leb th x then 255 :: (binarize xs th) else 0 :: (binarize xs th)
  end.

証明が必要そうな内容は

  • 関数を適用する前と後で配列の要素数に変化がない
  • 関数適用後の配列には値が0か255の2種類しかない

の2つかな。
次回以降でその証明をする。

Related Posts

Pocket

You can follow any responses to this entry through the RSS 2.0 feed. Both comments and pings are currently closed.