Anonymous user
Copy a string: Difference between revisions
→{{header|Sidef}}
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
|||
Line 1,993:
var copy1 = String.new(original); # creates a new String object
var copy2 = original+''; # ==//==</lang>
=={{header|Simula}}==
<lang simula>BEGIN
TEXT ORIGINAL, REFERENCE, COPY1;
ORIGINAL :- "THIS IS CONSTANT TEXT";
ORIGINAL.SETPOS(1);
REFERENCE :- ORIGINAL;
! RUN TIME ERROR:
! ORIGINAL.PUTCHAR('X');
! "copy-a-string.sim", line 9: ./copy-a-string: Putchar: Constant text object
;
OUTTEXT(ORIGINAL);
OUTIMAGE;
! CONTENT EQUAL? => T ;
OUTTEXT(IF ORIGINAL = REFERENCE THEN "T" ELSE "F");
OUTIMAGE;
! SAME TEXT OBJECT? => T ;
OUTTEXT(IF ORIGINAL == REFERENCE THEN "T" ELSE "F");
OUTIMAGE;
COPY1 :- COPY(ORIGINAL);
COPY1.SETPOS(1);
COPY1.PUTCHAR('X');
OUTTEXT(COPY1);
OUTIMAGE;
END;</lang>
{{out}}
<pre>
THIS IS CONSTANT TEXT
T
T
XHIS IS CONSTANT TEXT
</pre>
=={{header|Slate}}==
| |||