aboutsummaryrefslogtreecommitdiff
path: root/leetcode/lc-1450-students-doing-homework.rkt
diff options
context:
space:
mode:
Diffstat (limited to 'leetcode/lc-1450-students-doing-homework.rkt')
-rw-r--r--leetcode/lc-1450-students-doing-homework.rkt12
1 files changed, 12 insertions, 0 deletions
diff --git a/leetcode/lc-1450-students-doing-homework.rkt b/leetcode/lc-1450-students-doing-homework.rkt
new file mode 100644
index 0000000..14ff079
--- /dev/null
+++ b/leetcode/lc-1450-students-doing-homework.rkt
@@ -0,0 +1,12 @@
+#lang racket
+(define/contract (busy-student start-time end-time query-time)
+ (-> (listof exact-integer?) (listof exact-integer?) exact-integer? exact-integer?)
+ (count (λ (start end)
+ (and (start . <= . query-time)
+ (query-time . <= . end))) start-time end-time))
+
+(busy-student '(1 2 3) '(3 2 7) 4)
+(busy-student '(4) '(4) 4)
+(busy-student '(9 8 7 6 5 4 3 2 1)
+ '(10 10 10 10 10 10 10 10 10)
+ 5) \ No newline at end of file