Skip to main content
replaced http://mathematica.stackexchange.com/ with https://mathematica.stackexchange.com/
Source Link

#Mathematica, 37 31 chars

(#2[#1[#0[#1,#2]]]&)[Defer,Rasterize]
(Rasterize[#1[#0[#1]]]&)[Defer]

enter image description here

Inspired by an answer in mathematica.stackexchange.coman answer in mathematica.stackexchange.com.

#Mathematica, 37 31 chars

(#2[#1[#0[#1,#2]]]&)[Defer,Rasterize]
(Rasterize[#1[#0[#1]]]&)[Defer]

enter image description here

Inspired by an answer in mathematica.stackexchange.com.

#Mathematica, 37 31 chars

(#2[#1[#0[#1,#2]]]&)[Defer,Rasterize]
(Rasterize[#1[#0[#1]]]&)[Defer]

enter image description here

Inspired by an answer in mathematica.stackexchange.com.

added 174 characters in body
Source Link
alephalpha
  • 50k
  • 7
  • 68
  • 182

#Mathematica, 3737 31 chars

(#2[#1[#0[#1,#2]]]&)[Defer,Rasterize]
(#2[#1[#0[#1,#2]]]&Rasterize[#1[#0[#1]]]&)[Defer,Rasterize][Defer]

enter image description hereenter image description here

I am not sure whether it is a true quineInspired by an answer in mathematica.stackexchange.com.

#Mathematica, 37 chars

(#2[#1[#0[#1,#2]]]&)[Defer,Rasterize]

enter image description here

I am not sure whether it is a true quine.

#Mathematica, 37 31 chars

(#2[#1[#0[#1,#2]]]&)[Defer,Rasterize]
(Rasterize[#1[#0[#1]]]&)[Defer]

enter image description here

Inspired by an answer in mathematica.stackexchange.com.

deleted 3 characters in body
Source Link
alephalpha
  • 50k
  • 7
  • 68
  • 182

#Mathematica, 37 chars

(#2[#1[#0[#1, #2]]] &#2]]]&)[Defer, Rasterize]

enter image description here

I am not sure whether it is a true quine.

#Mathematica, 37 chars

(#2[#1[#0[#1, #2]]] &)[Defer, Rasterize]

enter image description here

I am not sure whether it is a true quine.

#Mathematica, 37 chars

(#2[#1[#0[#1,#2]]]&)[Defer,Rasterize]

enter image description here

I am not sure whether it is a true quine.

Source Link
alephalpha
  • 50k
  • 7
  • 68
  • 182
Loading