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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Task/String-interpolation-included-/Tcl/string-interpolation-included--1.tcl Normal file
View file

@ -0,0 +1,7 @@
set size "little"
puts "Mary had a $size lamb."
proc RandomWord {args} {
lindex $args [expr {int(rand()*[llength $args])}]
}
puts "Mary had a [RandomWord little big] lamb."

1
Task/String-interpolation-included-/Tcl/string-interpolation-included--2.tcl Normal file
View file

@ -0,0 +1 @@
puts [format "Mary had a %s %s." [RandomWord little big] [RandomWord lamb piglet calf]]

2
Task/String-interpolation-included-/Tcl/string-interpolation-included--3.tcl Normal file
View file

@ -0,0 +1,2 @@
set s "Mary had a @SIZE@ lamb."
puts [string map {@SIZE@ "miniscule"} $s]

8
Task/String-interpolation-included-/Tcl/string-interpolation-included--4.tcl Normal file
View file

@ -0,0 +1,8 @@
set grandpa {$daddy}; set grandma \$mommy
set daddy myself; set mommy {lil' bro}
set fun1 \[string\ to
set fun2 lower
set lower middle
set middle upper
set fun3 {aNd]}
puts [subst "$grandpa $fun1$[subst $$fun2] $fun3 $grandma"]