From a9fc3658346a0ab2f78aa615c84968b0832abea5 Mon Sep 17 00:00:00 2001 From: Syndamia Date: Thu, 20 Oct 2022 11:27:25 +0300 Subject: [FP/P01] Fixed month in filename --- .../01-Practice-03.10.2022.rkt | 23 ++++++++++++++++++++++ .../01-Practice-03.11.2022.rkt | 23 ---------------------- 2 files changed, 23 insertions(+), 23 deletions(-) create mode 100644 Year 2/Functional Programming/01-Practice-03.10.2022.rkt delete mode 100644 Year 2/Functional Programming/01-Practice-03.11.2022.rkt (limited to 'Year 2/Functional Programming') diff --git a/Year 2/Functional Programming/01-Practice-03.10.2022.rkt b/Year 2/Functional Programming/01-Practice-03.10.2022.rkt new file mode 100644 index 0000000..463bfde --- /dev/null +++ b/Year 2/Functional Programming/01-Practice-03.10.2022.rkt @@ -0,0 +1,23 @@ +(define (avgsqr a b) + (define (sqr x) + (* x x)) + (/ (+ (sqr a) (sqr b)) 2)) + +(define (fac x) + (if (<= x 1) + 1 + (* x (fac (- x 1))))) + +(define (minfib maxval) + (define (minfib maxval [a 1] [b 1]) + (if (> b maxval) + a + (minfib maxval b (+ a b)))) + (minfib maxval)) + +(define (fib x) + (if (<= x 1) + 1 + (+ (fib (- x 2)) (fib (- x 1))))) + + diff --git a/Year 2/Functional Programming/01-Practice-03.11.2022.rkt b/Year 2/Functional Programming/01-Practice-03.11.2022.rkt deleted file mode 100644 index 463bfde..0000000 --- a/Year 2/Functional Programming/01-Practice-03.11.2022.rkt +++ /dev/null @@ -1,23 +0,0 @@ -(define (avgsqr a b) - (define (sqr x) - (* x x)) - (/ (+ (sqr a) (sqr b)) 2)) - -(define (fac x) - (if (<= x 1) - 1 - (* x (fac (- x 1))))) - -(define (minfib maxval) - (define (minfib maxval [a 1] [b 1]) - (if (> b maxval) - a - (minfib maxval b (+ a b)))) - (minfib maxval)) - -(define (fib x) - (if (<= x 1) - 1 - (+ (fib (- x 2)) (fib (- x 1))))) - - -- cgit v1.3.1-24-ga712