aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Task/Longest-string-challenge/Racket/longest-string-challenge.rkt Normal file
View file

@ -0,0 +1,13 @@
#lang racket
(define (newline? c) (equal? c #\newline))
(define eof? eof-object?)
(let loop ([O '()] [C '(#\newline)] [rI '()] [rO '()] [rC '()])
(let* ([i (read-char)] [o (car C)] [i:rI (cons i rI)] [i:rC (cons i rC)])
(cond [(eof? i) (for-each write-char O)]
[(and (newline? o) (newline? i))
(let ([O (reverse i:rC)]) (loop O O '() i:rC i:rC))]
[(newline? i) (loop O O '() rO rO)]
[(newline? o) (loop O C i:rI rO i:rI)]
[else (loop O (cdr C) i:rI rO i:rC)])))