Great! I put it here:
https://glot.io/snippets/eg5hyv7nmo Since you have mentioned source of the code, I assume that there is no copyright infringement here. On Friday, July 1, 2016 at 4:59:11 PM UTC-4, Kiwamu Okabe wrote: > > Hi all, > > Today, I found a quine using ATS language. > It's a project by NANAKASE Kotoko. > > ``` > $ wget > https://raw.githubusercontent.com/MakeNowJust/quine/master/quine.dats > $ patscc quine.dats > $ ./a.out > val q = '"'; val s = @("val q = '", "'; val s = @(", "); implement > main0 () = (print s.0; print q; print s.1; print q; print s.0; print > q; print s.3; print q; print s.1; print q; print s.3; print q; print > s.2; print q; print s.3; print q; print s.3; print q; print s.2; > print_newline ())", ", "); implement main0 () = (print s.0; print q; > print s.1; print q; print s.0; print q; print s.3; print q; print s.1; > print q; print s.3; print q; print s.2; print q; print s.3; print q; > print s.3; print q; print s.2; print_newline ()) > ``` > > Very fun! > -- > Kiwamu Okabe at METASEPI DESIGN > -- You received this message because you are subscribed to the Google Groups "ats-lang-users" group. To unsubscribe from this group and stop receiving emails from it, send an email to ats-lang-users+unsubscr...@googlegroups.com. To post to this group, send email to ats-lang-users@googlegroups.com. Visit this group at https://groups.google.com/group/ats-lang-users. To view this discussion on the web visit https://groups.google.com/d/msgid/ats-lang-users/65812f0a-9274-4d11-b242-24f33427123b%40googlegroups.com.
