Tcl

Codeforces Unknown Language Round #1 I "Sort the Table "

問題:http://codeforces.com/contest/64/problem/I参加形式:本番カラム名,ソートするカラム名と昇順降順の指定およびテーブルが与えられる.ソートするカラム名と昇順降順の規則にしたがってソートした結果を求める.lsortを使ってソートするだけ.-index…

Codeforces Unknown Language Round #1 H "Path Canonization"

問題:http://codeforces.com/problemset/problem/64/Hプラクティス.人数と名前とスコアが与えられる.スコアにしたがって順位づけをした結果を求める.ソートして同じスコアの人を求めてその順番の範囲を求めた上で出力する. コード for {gets stdin t} {…

Codeforces Unknown Language Round #1 G "Path Canonization"

問題:http://codeforces.com/contest/64/problem/G参加形式:本番ファイルのパスの文字列が与えられる.カレントディレクトリ(.)や親ディレクトリ(..)などが含まれているため,これらを取り除いた形で正しいパスで表される文字列を求める.カレント…

Codeforces Unknown Language Round #1 F "Domain"

問題:http://codeforces.com/contest/64/problem/F参加形式:本番文字列が与えれる.数字とアルファベットの小文字とドット(.)で構成されており,行頭と末尾がドットではなく,最後のドットの後の文字数が2または3であるかどうかを求める.正規表現+ド…

Codeforces Unknown Language Round #1 D "Presents"

問題:http://codeforces.com/problemset/problem/64/Dプラクティスある3つの商品の価格が与えられる.価格が高い順に姉妹に商品を与えるとき,それぞれの商品が姉妹の何番目に与えられるかを求める.商品の価格をソートして,ソートした後の順番をリストに…

Codeforces Unknown Language Round #1 C "Table"

問題:http://codeforces.com/problemset/problem/64/Cプラクティス行数と列数とインデックスが与えられるので,与えられた行数と列数で左→右から上→下の順に数字を入れていって表されるテーブルを上→下から左→右の順で数えたときの与えられたインデックスの…

Codeforces Unknown Language Round #1 B "Expression"

問題:http://codeforces.com/contest/64/problem/B参加形式:本番数字と演算子が与えられるのでその式の結果を求める.評価するだけ. コード puts [expr [gets stdin]]

Codeforces Unknown Language Round #1 A "Factorial"

問題:http://codeforces.com/contest/64/problem/A参加形式:本番1から10の数字が与えられるのでその階乗を求める.SPOJ 24 FRCT2とほぼ同じなので流用. コード set a(0) 1 for {set i 1} {$i<=10} {incr i} { set a($i) [expr [set a([expr $i - 1])] …

SPOJ 7236 "The next odd number"

問題:https://www.spoj.pl/problems/NEXTODD/100B以内の問題なのでテキトーにTclで. while {![eof stdin]} { gets stdin n puts [expr $n+1+$n%2] }

SPOJ 4301 "Tables"

問題:https://www.spoj.pl/problems/AE1B/ scan [gets stdin] {%s %s %s} n k s set a [lsort -integer -decreasing [gets stdin]] set m [expr {$k*$s}] set sum 0 for {set c 0} {$sum<$m} {incr c} { incr sum [lindex $a $c] } puts $c

SPOJ 206 "Bitmap"

問題:https://www.spoj.pl/problems/BITMAP/ たぶん合ってるけど遅すぎて通らない. for {gets stdin t} {$t>0} {incr t -1} { #puts [time { if ![expr [string compare [set s [gets stdin]] ""]] then { gets stdin s } scan $s {%s %s} n m set queue […

SPOJ 1112 "Number Steps"

問題:https://www.spoj.pl/problems/NSTEPS/ for {gets stdin t} {$t>0} {incr t -1} { scan [gets stdin] {%d %d} x y if {$x==$y} { set r [expr 2*$y-($y%2?1:0)] } elseif {[expr $x-$y]==2} { set r [expr 2*$y+($y%2?1:2)] } else { set r "No Number…

SPOJ 42 "Adding Reversed Numbers"

問題:https://www.spoj.pl/problems/ADDREV/普通にexprで計算しようとすると頭が0の場合8進数として扱われるのでscanでとった. proc f {a} { join [lreverse [split $a ""]] "" } for {gets stdin t} {$t>0} {incr t -1} { scan [gets stdin] {%s %s} a b…

SPOJ 24 "Small factorial"

問題:https://www.spoj.pl/problems/FCTRL2/ set a(0) 1 for {set i 1} {$i<=100} {incr i} { set a($i) [expr [set a([expr $i - 1])] * $i] } for {gets stdin t} {$t>0} {incr t -1} { puts [set a([gets stdin])] }

SPOJ 400 "To and Fro"

問題:https://www.spoj.pl/problems/TOANDFRO/ while {[set t [gets stdin]]>0} { gets stdin s set r "" for {set i 1} {$i <= $t} {incr i} { set b 0 for {set j $i} {$j <= [string length $s]} {incr j [expr $b?[expr 2*[expr $t-$i]+1]:[expr 2*$i-1…