You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
475 B
19 lines
475 B
2 years ago
|
package require punk
|
||
|
|
catch {unset result}
|
||
|
|
|
||
|
|
dict= {a aaa b {z zzz x xxx y yyy}}
|
||
|
|
|
||
|
|
pipeline=result.= in.= val $dict |> string toupper |> @@B/X=
|
||
|
|
puts stdout "pipeline: $pipeline"
|
||
|
|
$pipeline
|
||
|
|
puts stdout "result: $result"
|
||
|
|
punk::assert {$result eq "XXX"}
|
||
|
|
|
||
|
|
pipeline=result.= in.= val $dict |> string toupper |> @tail/end/not-head/not-tail/0/0=
|
||
|
|
puts stdout "pipeline: $pipeline"
|
||
|
|
$pipeline
|
||
|
|
puts stdout "result: $result"
|
||
|
|
punk::assert {$result eq "ZZZ"}
|
||
|
|
|
||
|
|
|
||
|
|
puts "-done-"
|