From 2f674dc80f0382f1c3178f435714960734dc9d3c Mon Sep 17 00:00:00 2001
From: Nguyễn Gia Phong <mcsinyx@disroot.org>
Date: Sat, 6 Jun 2020 21:33:13 +0700
Subject: Reorganize stuff from secondary school

---
 11/Q-2017/cau1.scm | 8 --------
 1 file changed, 8 deletions(-)
 delete mode 100644 11/Q-2017/cau1.scm

(limited to '11/Q-2017/cau1.scm')

diff --git a/11/Q-2017/cau1.scm b/11/Q-2017/cau1.scm
deleted file mode 100644
index 5e59c49..0000000
--- a/11/Q-2017/cau1.scm
+++ /dev/null
@@ -1,8 +0,0 @@
-(define (cau1 n i)
-  (cond ((> (* i i) n) 0)
-        ((= (* i i) n) 1)
-        ((= (remainder n i) 0) (+ (cau1 n (+ i 1)) 2))
-        (else (cau1 n (+ i 1)))))
-(with-input-from-file "CAU1.INP" (lambda ()
-  (with-output-to-file "CAU1.OUT" (lambda ()
-    (format #t "~a\n" (cau1 (read) 1))))))
-- 
cgit 1.4.1