코딩도장

변경이력

2 2개 문자 추가

2015年05月08日 02:53

Tcl/tk입니다. ```{.no-highlight} set sum 0 set match_num 0 for {set x 1} {$x <= 10000} {incr x} { set pattern_check [ regexp -all {[8]} $x ] if { $pattern_check != 0 } { lappend match_num $pattern_check } } set sum [ expr [ join $match_num "+" ]] ```

Tcl/tk입니다. ```{.no-highlight} set sum 0 set match_num 0 for {set x 1} {$x <= 10000} {incr x} { set pattern_check [ regexp -all {[8]} $x ] if { $pattern_check != 0 } { lappend match_num $pattern_check } } set sum [ expr [ join $match_num "+" ]] ```

Tcl/tk입니다. ```{.no-highlight} set sum 0 set match_num 0 for {set x 1} {$x <= 10000} {incr x} { set pattern_check [ regexp -all {[8]} $x ] if { $pattern_check != 0 } { lappend match_num $pattern_check } } set sum [ expr [ join $match_num "+" ]] ```

1 Original

2015年05月08日 02:52

Tcl/tk입니다. ```{.no-highlight} set sum 0 set match_num 0 for {set x 1} {$x <= 10000} {incr x} { set pattern_check [ regexp -all {[8]} $x ] if { $pattern_check != 0 } { lappend match_num $pattern_check } } set sum [ expr [ join $match_num "+" ]] ```

Tcl/tk입니다. ```{.no-highlight} set sum 0 set match_num 0 for {set x 1} {$x <= 10000} {incr x} { set pattern_check [ regexp -all {[8]} $x ] if { $pattern_check != 0 } { lappend match_num $pattern_check } } set sum [ expr [ join $match_num "+" ]] ```

코딩도장

코딩도장은 프로그래밍 문제풀이를 통해서 코딩 실력을 수련(Practice)하는 곳입니다.

코딩도장 © 2014 · 문의 [email protected]

피드백 · 개인정보취급방침 · RSS