sorting by language

1 files changed, 0 insertions, 36 deletions

diff --git a/leetcode/lc-1700-students-unable-to-eat.rkt b/leetcode/lc-1700-students-unable-to-eat.rkt
deleted file mode 100644
index 75cc243..0000000
--- a/leetcode/lc-1700-students-unable-to-eat.rkt
+++ /dev/null
@@ -1,36 +0,0 @@
-#lang racket
-(define/contract (count-students students sandwiches)
-  (-> (listof exact-integer?) (listof exact-integer?) exact-integer?)
-  (for/fold ([sandwich-pile sandwiches]
-             [student-line students]
-             [remaining-students (length students)]
-             [break? #false]
-             #:result remaining-students)
-            ([i (in-naturals)]
-             #:break break?)
-    (cond [(and (empty? sandwich-pile)
-                (empty? student-line))
-           (values void
-                   void
-                   remaining-students
-                   #true)]
-          [(equal? (car sandwich-pile)
-                   (car student-line))
-           (values (cdr sandwich-pile)
-                   (cdr student-line)
-                   (sub1 remaining-students)
-                   #false)]
-          [(and (not (equal? (list (car sandwich-pile))
-                        (remove-duplicates student-line)))
-                (= 1 (length (remove-duplicates student-line))))
-           (values void
-                   void
-                   remaining-students
-                   #true)]
-          [else
-           (values sandwich-pile
-                   (append (cdr student-line) (list (car student-line)))
-                   remaining-students
-                   #false)])))
-
-(count-students '(1 1 0 0) '(0 1 0 1))