;;; -*- Hen -*- ;;;; levenshtein-cost-numbers.scm ;;;; Kon Lovett, May '06 ;;;; Kon Lovett, Apr 2012 (include "levenshtein-cost-interface") (module levenshtein-cost-numbers COST-OPER (import scheme chicken) (use numbers) (define cost-add +) (define cost-multiply *) (define cost-minimum min) (define cost-less-than <) (define cost-positive-infinity +inf.0) ) ;module levenshtein-cost-numbers