diff options
| author | HJ <thechairman@thechairman.info> | 2023-01-17 12:46:04 -0500 |
|---|---|---|
| committer | HJ <thechairman@thechairman.info> | 2023-01-17 12:46:04 -0500 |
| commit | fafbeaf9e3c09ba7a5bea7e47d5736001f8a5aa1 (patch) | |
| tree | d586a28650cbbfb20ece931a85bcce4c29e5e40b /leetcode/lc-717-1bit-and-2bit.rkt | |
| parent | bc5387512ba529072338648d6337ddab731b8b8c (diff) | |
| download | gleam_aoc-fafbeaf9e3c09ba7a5bea7e47d5736001f8a5aa1.tar.gz gleam_aoc-fafbeaf9e3c09ba7a5bea7e47d5736001f8a5aa1.zip | |
adding old leetcode solutions
Diffstat (limited to 'leetcode/lc-717-1bit-and-2bit.rkt')
| -rw-r--r-- | leetcode/lc-717-1bit-and-2bit.rkt | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/leetcode/lc-717-1bit-and-2bit.rkt b/leetcode/lc-717-1bit-and-2bit.rkt new file mode 100644 index 0000000..d9988ec --- /dev/null +++ b/leetcode/lc-717-1bit-and-2bit.rkt @@ -0,0 +1,12 @@ +#lang racket + +(define/contract (is-one-bit-character bits) + (-> (listof exact-integer?) boolean?) + (define/match (check-next-character x . xs) + [(0 '()) #true] + [(1 (list _ ..2)) (apply check-next-character (cdr xs))] + [(0 (list _ ..1)) (apply check-next-character xs)] + [(_ _) #false]) + (apply check-next-character bits)) + +(is-one-bit-character (list 1 1 0 1 0))
\ No newline at end of file |