yyamasak #8574(2009/03/03 02:07 GMT) [ Tcl ] Rating0/0=0.00
8.4だとごく普通にやるしかないですが、8.5なら関数作る必要すらない。
1 2 3 4 5 6 7 8 9 10 11
# 8.4まで proc reverse_string {str} { set rstr "" foreach s [split $str ""] {set rstr "$s$rstr"} return $rstr } # 8.5 proc reverse_string {str} { string reverse $str }
Rating0/0=0.00-0+
[ reply ]
yyamasak #8574() [ Tcl ] Rating0/0=0.00
8.4だとごく普通にやるしかないですが、8.5なら関数作る必要すらない。
# 8.4まで proc reverse_string {str} { set rstr "" foreach s [split $str ""] {set rstr "$s$rstr"} return $rstr } # 8.5 proc reverse_string {str} { string reverse $str }Rating0/0=0.00-0+
[ reply ]