From e529a4439a854a701d904717ef570b58850ba235 Mon Sep 17 00:00:00 2001 From: Dimitri Belopopsky Date: Tue, 12 Oct 2021 11:39:36 +0200 Subject: [PATCH] Normalize inputs for scheme euclid algorithm Change inputs to make it consistent with other examples. --- contents/euclidean_algorithm/code/scheme/euclidalg.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/contents/euclidean_algorithm/code/scheme/euclidalg.ss b/contents/euclidean_algorithm/code/scheme/euclidalg.ss index 3d891ba73..959ebdeca 100644 --- a/contents/euclidean_algorithm/code/scheme/euclidalg.ss +++ b/contents/euclidean_algorithm/code/scheme/euclidalg.ss @@ -12,4 +12,5 @@ (euclid-mod b (modulo a b)))) (display (euclid-mod (* 64 67) (* 64 81))) (newline) -(display (euclid-sub (* 64 12) (* 64 27))) (newline) +(display (euclid-sub (* 128 12) (* 128 77))) (newline) +