RosettaCodeData/Task/Quine/Hoon/quine-1.hoon
2023-07-01 13:44:08 -04:00

1 line
566 B
Text

!: :- %say |= [^ [~ ~]] =+ ^= s ((list ,@tas) ~['!: :- %say |= [^ [~ ~]] =+ ^= s ((list ,@tas) ~[' 'x' ']) :- %noun (,tape (turn s |=(a=@tas ?:(=(a %x) (crip `(list ,@tas)`(turn s |=(b=@tas =+([s=?:(=(b %x) " " "") m=(trip [[User:Wodan58|Wodan58]] ([[User talk:Wodan58|talk]])27.)] (crip :(welp s m (trip b) m s)))))) a))))']) :- %noun (,tape (turn s |=(a=@tas ?:(=(a %x) (crip `(list ,@tas)`(turn s |=(b=@tas =+([s=?:(=(b %x) " " "") m=(trip [[User:Wodan58|Wodan58]] ([[User talk:Wodan58|talk]])27.)] (crip :(welp s m (trip b) m s)))))) a))))