Unknown Language Round #1

はい。
http://codeforces.com/contest/64
Unknown Languageは特殊回で今回はActiveTcl 8.5という言語限定です。

A. Factorial

・1 * 2 * 3 .... * nのようなことをしてnのときの積がいくつか。

Tcl

set line [gets stdin]
scan $line "%d" n

if {$n==1} {
    puts 1
} elseif {$n==2} {
    puts 2
} elseif {$n==3} {
    puts 6
} elseif {$n==4} {
    puts 24
} elseif {$n==5} {
    puts 120
} elseif {$n==6} {
    puts 720
} elseif {$n==7} {
    puts 5040
} elseif {$n==8} {
    puts 40320
} elseif {$n==9} {
    puts 362880
} elseif {$n==10} {
    puts 3628800
}

埋め込みで済ませた。forとかの方法が不明だったので。

B. Expression

・入力はn#mで0から9までの数の足し算か引き算を行う。

Tcl

set line [gets stdin]

set op [string index $line 1]
set a [string index $line 0]
set b [string index $line 2]

switch $op {
    "+" {
        set ans [expr {$a+$b}]
        puts $ans
    }
    "-" {
        set ans [expr {$a-$b}]
        puts $ans
    }
}

一行でも可能なようです。 puts [expr [gets stdin]] Pythonのevalみたいな感じかな？？