joachim/fsharp-random
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Euklid

Browse source
This commit is contained in:
joachimschmidt557 2019-02-23 21:57:43 +01:00
parent 7561d34d8d
commit 2b1d879eeb
3 changed files with 17 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Euklid.fs Normal file
View file

@ -0,0 +1,13 @@
module Euklid
open System
let rec euklid a b =
if b = 0 then a
else euklid b (a % b)
let rec erwEuklid a b =
if b = 0 then (a, 1, 0)
else
let (d, x, y) = erwEuklid b (a % b)
(d, y, x - (a / b) * y)