Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma

Benutzer


products/Sources/formale Sprachen/Isabelle/HOL/ex/ (Isabelle Prover Version 2025-1^©) Datei vom 16.11.2025 mit Größe 2 kB

Quelle Sorting_Algorithms_Examples.thy Sprache: Isabelle

(*  Title:      HOL/ex/Sorting_Algorithms_Examples.thy
    Author:     Florian Haftmann, TU Muenchen
*)

theory Sorting_Algorithms_Examples
  imports Main "HOL-Library.Sorting_Algorithms"
begin

subsection ‹Evaluation examples›

definition int_abs_reversed :: "int comparator"
  where "int_abs_reversed = key abs (reversed default)"

definition example_1 :: "int list"
  where "example_1 = [65, 1705, -2322, 734, 4, (-17::int)]"

definition example_2 :: "int list"
  where "example_2 = [-3000..3000]"

ML ‹

val term_of_int_list = HOLogic.mk_list typ‹int›
o map (HOLogic.mk_number typ‹int› o @{code integer_of_int});

fun raw_sort (ctxt, ct, ks) =
🚫‹x = ct and y = ‹Thm.cterm_of ctxt (term_of_int_list ks)›
in cterm ‹x ≡ y› for x y :: ‹int list››;

val (_, sort_oracle) = Theory.setup_result (Thm.add_oracle (🚫‹sort›, raw_sort));

val sort_int_abs_reversed_conv = @{computation_conv "int list" terms: int_abs_reversed
"sort :: int comparator → _"
"quicksort :: int comparator → _"
"mergesort :: int comparator → _"
example_1 example_2
} (fn ctxt => fn ct => fn ks => sort_oracle (ctxt, ks, ct))

›

declare [[code_timing]]

ML_val ‹sort_int_abs_reversed_conv context
🚫‹sort int_abs_reversed example_1››

ML_val ‹sort_int_abs_reversed_conv context
🚫‹quicksort int_abs_reversed example_1››

ML_val ‹sort_int_abs_reversed_conv context
🚫‹mergesort int_abs_reversed example_1››

ML_val ‹sort_int_abs_reversed_conv context
🚫‹sort int_abs_reversed example_2››

ML_val ‹sort_int_abs_reversed_conv context
🚫‹quicksort int_abs_reversed example_2››

ML_val ‹sort_int_abs_reversed_conv context
🚫‹mergesort int_abs_reversed example_2››

end

Messung V0.5 in Prozent

¤ Dauer der Verarbeitung: 0.14 Sekunden (vorverarbeitet am 2026-09-29) ¤

Wurzel

Suchen

PVS Prover

Isabelle Prover

NIST Cobol Testsuite

Cephes Mathematical Library

Vienna Development Method

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.