Copy a string: Difference between revisions
Content added Content deleted
(added Ol) |
|||
Line 1,718: | Line 1,718: | ||
There is no need to copy a string content as strings are immutable. If really needed : |
There is no need to copy a string content as strings are immutable. If really needed : |
||
<lang Oforth>StringBuffer new "abcde" << </lang> |
<lang Oforth>StringBuffer new "abcde" << </lang> |
||
=={{header|Ol}}== |
|||
<lang scheme> |
|||
(define a "The String.") |
|||
; copy the string |
|||
(define b (runes->string (string->runes a))) |
|||
(print "a: " a) |
|||
(print "b: " b) |
|||
(print "b is an a: " (eq? a b)) |
|||
(print "b same as a: " (equal? a b)) |
|||
; another way: marshal the string |
|||
(define c (fasl-decode (fasl-encode a) #f)) |
|||
(print "a: " a) |
|||
(print "c: " c) |
|||
(print "c is an a: " (eq? a c)) |
|||
(print "c same as a: " (equal? a c)) |
|||
</lang> |
|||
{{Out}} |
|||
<pre> |
|||
a: The String. |
|||
b: The String. |
|||
b is an a: #false |
|||
b same as a: #true |
|||
a: The String. |
|||
c: The String. |
|||
c is an a: #false |
|||
c same as a: #true |
|||
</pre> |
|||
=={{header|ooRexx}}== |
=={{header|ooRexx}}== |