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

%%% feeding file prog.oz

%*************************** parse error ************************
%**
%** syntax error, unexpected T_FDMUL
%**
%** in file "./prog.oz", line 4, column 74
%** ------------------ rejected (1 error)
stdout
copy 
Standard output is empty
https://ideone.com/GArRa
language:
Oz (mozart-1.4.0)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!