This question can be read a couple of different ways too. What are you trying to do once you have the answer you are looking for?
-------- Original Message -------- On Sep 5, 2019, 1:13 PM, Adam Golding wrote: > What is the shortest program listing the largest list of programs that can be > listed without looping? > > On Thursday, 5 September 2019 11:10:59 UTC-4, dvanhorn wrote: > >> How about this: a stream of strings which can be be parsed and >> compiled. (Note that this will loop when it gets to the first program >> that makes the compiler loop; luckily it's inefficient enough that >> you'll never actually get there.) >> >> #lang racket >> (define valid-progs >> (for/stream ([p strings] >> #:when (valid p)) >> p)) >> >> (define strings >> (stream-cons "" >> (for*/stream ([s strings] >> [i (in-range 0 #x10FFFF)] >> #:when (not (<= #xD800 i #xDFFF))) >> (string-append (string (integer->char i)) s)))) >> >> (define (valid x) >> (with-handlers ([exn:fail? (λ _ #f)]) >> (compile (with-input-from-string x >> (λ () (begin0 (read) >> (unless (eof-object? (read)) >> (error "fail")))))) >> x)) >> >> On Thu, Sep 5, 2019 at 10:58 AM Adam Golding >> <[adamg...@gmail.com](javascript:)> wrote: >>> >>> It's okay if the program never halts. >>> >>> -- >>> You received this message because you are subscribed to the Google Groups >>> "Racket Users" group. >>> To unsubscribe from this group and stop receiving emails from it, send an >>> email to [racket...@googlegroups.com](javascript:). >>> To view this discussion on the web visit >>> https://groups.google.com/d/msgid/racket-users/70d0b081-eef8-44a6-b2e3-5a72eba7ff5a%40googlegroups.com. > > -- > You received this message because you are subscribed to the Google Groups > "Racket Users" group. > To unsubscribe from this group and stop receiving emails from it, send an > email to racket-users+unsubscr...@googlegroups.com. > To view this discussion on the web visit > [https://groups.google.com/d/msgid/racket-users/beea9305-6945-45fd-91b2-59e6162b6b1e%40googlegroups.com](https://groups.google.com/d/msgid/racket-users/beea9305-6945-45fd-91b2-59e6162b6b1e%40googlegroups.com?utm_medium=email&utm_source=footer). -- You received this message because you are subscribed to the Google Groups "Racket Users" group. To unsubscribe from this group and stop receiving emails from it, send an email to racket-users+unsubscr...@googlegroups.com. To view this discussion on the web visit https://groups.google.com/d/msgid/racket-users/ii7sMy_fxElYY2CIt16vQ6Zy1JLL5EJLRtKveAkTNHfR4rhN9VjpcSC0A8gzfiFRd5BDr_GQRehZAR7JBcAP3W7GXu2MS_Bd8mRWeMNbE-M%3D%40sagegerard.com.
