aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

0
Task/Enforced-immutability/Ada/enforced-immutability.ada → Task/Enforced-immutability/Ada/enforced-immutability-1.ada
View file

6
Task/Enforced-immutability/Ada/enforced-immutability-2.ada Normal file
View file

@ -0,0 +1,6 @@
type T is limited private; -- inner structure is hidden
X, Y: T;
B: Boolean;
-- The following operations do not exist:
X := Y; -- illegal (cannot be compiled
B := X = Y; -- illegal

2
Task/Enforced-immutability/Perl-6/enforced-immutability-3.pl6
View file

@ -1 +1 @@
my $pi ::= 3 + rand;
my $pi := 3 + rand;

70
Task/Enforced-immutability/REXX/enforced-immutability.rexx
View file

@ -1,37 +1,37 @@
/*REXX pgm emulates immutable variables (as a post-computational check).*/
call immutable '$=1' /* ◄─── assigns an immutable var.*/
call immutable ' pi = 3.14159' /* ◄─── " " " " */
call immutable 'radius= 2*pi/4 ' /* ◄─── " " " " */
call immutable ' r=13/2 ' /* ◄─── " " " " */
call immutable ' d=0002 * r' /* ◄─── " " " " */
call immutable ' f.1 = 12**2 ' /* ◄─── " " " " */
/*REXX program emulates immutable variables (as a post-computational check). */
call immutable '$=1' /* ◄─── assigns an immutable variable. */
call immutable ' pi = 3.14159' /* ◄─── " " " " */
call immutable 'radius= 2*pi/4 ' /* ◄─── " " " " */
call immutable ' r=13/2 ' /* ◄─── " " " " */
call immutable ' d=0002 * r' /* ◄─── " " " " */
call immutable ' f.1 = 12**2 ' /* ◄─── " " " " */
say ' $ =' $ /*show variable, just to be sure.*/
say ' pi =' pi /* " " " " " " */
say ' radius =' radius /* " " " " " " */
say ' r =' r /* " " " " " " */
say ' d =' d /* " " " " " " */
say ' $ =' $ /*show the variable, just to be sure. */
say ' pi =' pi /* " " " " " " " */
say ' radius =' radius /* " " " " " " " */
say ' r =' r /* " " " " " " " */
say ' d =' d /* " " " " " " " */
do radius=10 to -10 by -1 /*perform some stuff*/
circum=$*pi*2*radius /*some kind of calc.*/
end /*k*/ /*that should do it.*/
call immutable /* ◄═══ check if immutables OK. */
exit /*stick a fork in it, we're done.*/
/*──────────────────────────────────IMMUTABLE subroutine────────────────*/
immutable: if symbol('immutable.0')=='LIT' then immutable.0= /*1st time*/
if arg()==0 then do /* [↓] check all immutable vars.*/
do __=1 for words(immutable.0); _=word(immutable.0,__)
if value(_)==value('IMMUTABLE.!'_) then iterate /*same?*/
call ser -12, 'immutable variable ' _ " compromised."
end /*__*/ /* [↑] if an error, ERRmsg, exit*/
return 0 /*return to invoker, indicate OK.*/
end /* [↓] immutable var must have =*/
if pos('=',arg(1))==0 then call ser -4, 'no equal sign in assignment:' arg(1)
parse arg _ '=' __; upper _; _=space(_) /*purify var name.*/
if symbol('_')=='BAD' then call ser -8,_ "isn't a valid variable symbol."
immutable.0=immutable.0 _ /*add immutable var to the list. */
interpret '__='__; call value _,__ /*assign a value to a variable. */
call value 'IMMUTABLE.!'_,__ /*also, assign value to bkup. var*/
return words(immutable.0) /*return the # of immutable vars.*/
/*──────────────────────────────────SER subroutine──────────────────────*/
ser: say; say '***error!***' arg(2); say; exit arg(1) /*ERRmsg.*/
do radius=10 to -10 by -1 /*perform some faux important stuff. */
circum=$*pi*2*radius /*some kind of impressive calculation. */
end /*k*/ /* [↑] that should do it, by gum. */
call immutable /* ◄═══ see if immutable variables OK. */
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
immutable: if symbol('immutable.0')=='LIT' then immutable.0= /*1st time see immutable? */
if arg()==0 then do /* [↓] chk all immutables*/
do __=1 for words(immutable.0); _=word(immutable.0,__)
if value(_)==value('IMMUTABLE.!'_) then iterate /*same?*/
call ser -12, 'immutable variable ' _ " compromised."
end /*__*/ /* [↑] Error? ERRmsg, exit*/
return 0 /*return and indicate A-OK.*/
end /* [↓] immutable must have =*/
if pos('=',arg(1))==0 then call ser -4, "no equal sign in assignment:" arg(1)
parse arg _ '=' __; upper _; _=space(_) /*purify variable name.*/
if symbol("_")=='BAD' then call ser -8,_ "isn't a valid variable symbol."
immutable.0=immutable.0 _ /*add immutable var to list.*/
interpret '__='__; call value _,__ /*assign value to a variable*/
call value 'IMMUTABLE.!'_,__ /*assign value to bkup var. */
return words(immutable.0) /*return number immutables. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
ser: say; say '***error***' arg(2); say; exit arg(1) /*error msg.*/

8
Task/Enforced-immutability/Rust/enforced-immutability-3.rust Normal file
View file

@ -0,0 +1,8 @@
let mut x = 4;
let y = &x;
*y += 2 // Raises compiler error. Even though x is mutable, y is an immutable reference.
let y = &mut x;
*y += 2// Works
// Note that though y is now a mutable reference, y itself is still immutable e.g.
let mut z = 5;
let y = &mut z; // Raises compiler error because y is already assigned to '&mut x'