fork download
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8. (*O/*_/
  9. Cu #%* )pop mark/CuG 4 def/# 2 def%%%%@@P[TX---P\P_SXPY!Ex(mx2ex("SX!Ex4P)Ex=
  10. CuG #%* *+Ex=
  11. CuG #%*------------------------------------------------------------------*+Ex=
  12. CuG #%* POLYGLOT - a program in eight languages 15 February 1991 *+Ex=
  13. CuG #%* 10th Anniversary Edition 1 December 2001 *+Ex=
  14. CuG #%* *+Ex=
  15. CuG #%* Written by Kevin Bungard, Peter Lisle, and Chris Tham *+Ex=
  16. CuG #%* *+Ex=
  17. CuG #%* Polyglot suports the following languages: *+Ex=
  18. CuG #%* 1. COBOL (ANSI) *+Ex=
  19. CuG #%* 2. Pascal (ISO) *+Ex=
  20. CuG #%* 3. Fortran (ANSI, f77) *+Ex=
  21. CuG #%* 4. C (ANSI-ish) *+Ex=
  22. CuG #%* 5. PostScript *+Ex=
  23. CuG #%* 6. Linux/Unix shell script (bash, sh, csh) *+Ex=
  24. CuG #%* 7. x86 machine language (MS-DOS, Win32, Linux) *+Ex=
  25. CuG #%* 8. Perl (version 5) *+Ex=
  26. CuG #%* *+Ex=
  27. CuG #%* Usage: *+Ex=
  28. CuG #%* 1. Rename this file to polyglot.[cob|pas|f77|c|ps|sh|com|pl] *+Ex=
  29. CuG #%* *+Ex=
  30. CuG #%* 2. Compile and run with your favorite compiler and operating *+Ex=
  31. CuG #%* system. *+Ex=
  32. CuG #%* *+Ex=
  33. CuG #%* Notes: *+Ex=
  34. CuG #%* 1. We have attempted to use only standard language features. *+Ex=
  35. CuG #%* *+Ex=
  36. CuG #%* 2. Without the -traditional flag gcc will issue a warning. *+Ex=
  37. CuG #%* *+Ex=
  38. CuG #%* 3. When transferring from Unix to DOS make sure that a LF *+Ex=
  39. CuG #%* is correctly translated into a CR/LF. *+Ex=
  40. CuG #%* *+Ex=
  41. CuG #%* 4. Keep the blank lines at the start of the program. They *+Ex=
  42. CuG #%* are important. *+Ex=
  43. CuG #%* *+Ex=
  44. CuG #%* 5. This text is a comment block in all eight languages. *+Ex=
  45. CuG #%* *+Ex=
  46. CuG #%* Please mail any comments, corrections or additions to *+Ex=
  47. CuG #%* polyglot@ideology.com.au *+Ex=
  48. CuG #%* *+Ex=
  49. CuG #%*------------------------------------------------------------------*QuZ=
  50. CuG #%* *+Ex=
  51. CuG #%*!Mx)ExQX5ZZ5SSP5n*5X!)Ex+ExPQXH,B+ExP[-9A-9B(g?(gA'UTTER_XYZZXX!X *+
  52. CuG #(* *(
  53. C # */); /*(
  54. C # *) program polyglot (output); (*+
  55. C # identification division.
  56. C # program-id. polyglot.
  57. C #
  58. C # data division.
  59. C # procedure division.
  60. C #
  61. C # * ))cleartomark /Bookman-Demi findfont 36 scalefont setfont (
  62. C # * (
  63. C #
  64. C # * hello polyglots$
  65. C # main.
  66. C # perform
  67. C /# * ) 2>_$$; echo "CI-3641 Rocks!"; rm _$$; exit;
  68. C # * (
  69. C #
  70. C *0 ) unless print "CI-3641 Rocks!\n"; __END__
  71.   print
  72. C stop run.
  73.   -*, 'hello polyglots'
  74. C
  75. C print.
  76. C display "CI-3641 Rocks!". (
  77. C */ int i; /*
  78. C */ main () { /*
  79. C */ i=printf ("CI-3641 Rocks!\n"); O= &i; return *O; /*
  80. C *) (*
  81. C *) begin (*
  82. C *) writeln ('CI-3641 Rocks!'); (*
  83. C *) (* )
  84. C * ) pop 60 360 (
  85. C * ) pop moveto (CI-3641 Rocks!) show (
  86. C * ) pop showpage ((
  87. C *)
  88.   end .(* )
  89. C)pop% program polyglot. *){*/}
Compilation error #stdin compilation error #stdout 0s 0KB
stdin
Standard input is empty
compilation info
prog.go:8: package statement must be first
prog.go:52: syntax error: unexpected semicolon or newline, expecting )
prog.go:77: non-declaration statement outside function body
prog.go:79: syntax error: unexpected =, expecting }
prog.go:79: non-declaration statement outside function body
prog.go:89: syntax error: unexpected }
prog.go:89: missing newline at end of file
stdout
Standard output is empty