From b7b655218c24d50023a5223bb35aecb347212c8c Mon Sep 17 00:00:00 2001 From: zafar hussain Date: Thu, 31 Oct 2019 23:04:17 +0500 Subject: [PATCH 1/4] Added/Updated factorial.rkt in Racket --- archive/r/racket/README.md | 1 + archive/r/racket/factorial.rkt | 26 ++++++++++++++++++++++++++ 2 files changed, 27 insertions(+) create mode 100644 archive/r/racket/factorial.rkt diff --git a/archive/r/racket/README.md b/archive/r/racket/README.md index 07fdca62f..da3382600 100644 --- a/archive/r/racket/README.md +++ b/archive/r/racket/README.md @@ -6,6 +6,7 @@ Welcome to Sample Programs in Racket! - [Hello World in Racket](https://therenegadecoder.com/code/hello-world-in-racket/) - [Fibonacci in Racket] +- [Factorial in Racket] ## Fun Facts diff --git a/archive/r/racket/factorial.rkt b/archive/r/racket/factorial.rkt new file mode 100644 index 000000000..7a88bcdc0 --- /dev/null +++ b/archive/r/racket/factorial.rkt @@ -0,0 +1,26 @@ +#lang racket + +;; A naive implementation of factorial + +(define (fact n) + (cond + [(< n 2) 1] + [else + (* (fact (sub1 n)) n)])) + + + +(define (factorial n) + (cond + [(or (not n) (< n 0) ) "Usage: please input a non-negative integer"] + + [else + (println (fact n))])) + + +(factorial (string->number (read-line))) + + + + + From f61f7dabfa851e4740e645135bb034ab874c31f9 Mon Sep 17 00:00:00 2001 From: zafar hussain Date: Fri, 1 Nov 2019 23:08:36 +0500 Subject: [PATCH 2/4] Added links to issues for Articles --- archive/r/racket/README.md | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/archive/r/racket/README.md b/archive/r/racket/README.md index da3382600..10bb83f28 100644 --- a/archive/r/racket/README.md +++ b/archive/r/racket/README.md @@ -5,8 +5,8 @@ Welcome to Sample Programs in Racket! ## Sample Programs - [Hello World in Racket](https://therenegadecoder.com/code/hello-world-in-racket/) -- [Fibonacci in Racket] -- [Factorial in Racket] +- [Fibonacci in Racket](https://github.com/TheRenegadeCoder/sample-programs/issues/1852) +- [Factorial in Racket](https://github.com/TheRenegadeCoder/sample-programs/issues/1853) ## Fun Facts From f4ba127fbeac5ba41ed79709d35751ae419ffc15 Mon Sep 17 00:00:00 2001 From: zafar hussain Date: Fri, 1 Nov 2019 23:13:15 +0500 Subject: [PATCH 3/4] Added Issue links to articles --- archive/r/racket/README.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/archive/r/racket/README.md b/archive/r/racket/README.md index 10bb83f28..3d032b8aa 100644 --- a/archive/r/racket/README.md +++ b/archive/r/racket/README.md @@ -6,7 +6,7 @@ Welcome to Sample Programs in Racket! - [Hello World in Racket](https://therenegadecoder.com/code/hello-world-in-racket/) - [Fibonacci in Racket](https://github.com/TheRenegadeCoder/sample-programs/issues/1852) -- [Factorial in Racket](https://github.com/TheRenegadeCoder/sample-programs/issues/1853) +- [Factorial in Racket] (https://github.com/TheRenegadeCoder/sample-programs/issues/1853) ## Fun Facts From 1a53cf054d0cf91f667004fa22a9b470ccbfb96f Mon Sep 17 00:00:00 2001 From: Jeremy Grifski Date: Mon, 4 Nov 2019 13:23:30 -0500 Subject: [PATCH 4/4] Cleaned up end lines --- archive/r/racket/factorial.rkt | 5 ----- 1 file changed, 5 deletions(-) diff --git a/archive/r/racket/factorial.rkt b/archive/r/racket/factorial.rkt index 7a88bcdc0..8df92840f 100644 --- a/archive/r/racket/factorial.rkt +++ b/archive/r/racket/factorial.rkt @@ -19,8 +19,3 @@ (factorial (string->number (read-line))) - - - - -