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.
|
|
|
|
package require punk
|
|
|
|
|
catch {unset result}
|
|
|
|
|
|
|
|
|
|
dict= {a aaa b {z zzz x xxx y yyy}}
|
|
|
|
|
|
|
|
|
|
pipeset pipeline result.= in.= val $dict |> string toupper |> @@B/X=
|
|
|
|
|
puts stdout "pipeline: $pipeline"
|
|
|
|
|
$pipeline
|
|
|
|
|
puts stdout "result: $result"
|
|
|
|
|
punk::assert {$result eq "XXX"}
|
|
|
|
|
|
|
|
|
|
pipeset 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-"
|
