proc kordnum {} {
	set ord [lindex [split $::credk ""] 1]
	switch -regexp $::credk {
		^0$ {puts "0 [lindex $::wkcred $::credk]"; exit}
		^1$ {puts "1_f [lindex $::wkcred $::credk]"; exit}
		^2$ {puts "2_f [lindex $::wkcred $::credk]"; exit}
		^[3-4]$ {puts "$::credk [lindex $::wkcred $::credk]"; exit}
		^[5-9]$ {puts "$::credk [lindex $::wkcred $::credk]"; exit}
	}
}

proc decnum {} {
	set dec [lindex [split $::credr ""] 0]
	set ord [lindex [split $::credr ""] 1]
	switch -regexp $::credr {
		^[1-9]0$ {puts "$::credr rublei"; return}
		^1[1-9]$ {puts "$::credr rublei"; return}
		^[2-9][1-9]$ {puts "[expr $dec*10] $ord [lindex $::wrcred $ord]"; return}
	}
}

proc kdecnum {} {
	set dec [lindex [split $::credk ""] 0]
	set ord [lindex [split $::credk ""] 1]
	if {$ord==1} {
		set ord "1_f"
	} elseif {$ord==2} {
		set ord "2_f"
	}
	switch -regexp $::credk {
		^[1-9]0$ {puts "$::credk kopeek"; exit}
		^1[1-9]$ {puts "$::credk kopeek"; exit}
		^[2-9][1-9]$ {puts "[expr $dec*10] $ord [lindex $::wkcred [lindex [split $ord ""] 0]]"; exit}
	}
}


proc hndnum {} {
	set hnd [lindex [split $::credr ""] 0]
	set dec [lindex [split $::credr ""] 1]
	set ord [lindex [split $::credr ""] 2]
	switch -regexp $::credr {
		^[1-9]00$ {puts "$::credr rublei"; return}
		^[1-9]0[1-9]$ {puts "[expr $hnd*100] $ord [lindex $::wrcred $ord]"; return}
		^[1-9]1[1-9]$ {puts "[expr $hnd*100] $dec$ord rublei"; return}
		^[1-9][1-9]0$ {puts "[expr $hnd*100] $dec$ord rublei"; return}
		^[1-9][2-9][1-9]$ {puts "[expr $hnd*100] [expr $dec*10] $ord [lindex $::wrcred $ord]"; return}
	}
}

proc thnnum {} {
	set thn [lindex [split $::credr ""] 0]
	set hnd [lindex [split $::credr ""] 1]
	set dec [lindex [split $::credr ""] 2]
	set ord [lindex [split $::credr ""] 3]
	if {$thn==1} {
		set thn "1_f"
	} elseif {$thn==2} {
		set thn "2_f"
	}
	switch -regexp $::credr {
		^[1-9]000$ {puts "$thn [lindex $::wtcred [lindex [split $thn ""] 0]] rublei"; return}
		^[1-9]00[1-9]$ {puts "$thn [lindex $::wtcred [lindex [split $thn ""] 0]] $ord [lindex $::wrcred $ord]"; return}
		^[1-9]01[1-9]$ {puts "$thn [lindex $::wtcred [lindex [split $thn ""] 0]] $dec$ord rublei"; return}
		^[1-9]0[1-9]0$ {puts "$thn [lindex $::wtcred [lindex [split $thn ""] 0]] $dec$ord rublei"; return}
		^[1-9]0[1-9][1-9]$ {puts "$thn [lindex $::wtcred [lindex [split $thn ""] 0]] $dec$ord [lindex $::wrcred $ord]"; return}
		^[1-9][1-9]00$ {puts "$thn [lindex $::wtcred [lindex [split $thn ""] 0]] [expr $hnd*100] rublei"; return}
		^[1-9][1-9]0[1-9] {puts "$thn [lindex $::wtcred [lindex [split $thn ""] 0]] [expr $hnd*100] $ord [lindex $::wrcred $ord]"; return}
		^[1-9][1-9]1[1-9]$ {puts "$thn [lindex $::wtcred [lindex [split $thn ""] 0]] [expr $hnd*100] $dec$ord rublei"; return}
		^[1-9][1-9][1-9]0$ {puts "$thn [lindex $::wtcred [lindex [split $thn ""] 0]] [expr $hnd*100] $dec$ord rublei"; return}
		^[1-9][1-9][2-9][1-9] {puts "$thn [lindex $::wtcred [lindex [split $thn ""] 0]] [expr $hnd*100] [expr $dec*10] $ord [lindex $::wrcred $ord]"; return}
	}
}

main $argv

через врожденную глупость забыл - эта штука пытается
писать суммы прописью.

бездна копипаста, который в Tcl неуместен. вся работа выполняется в глобальном пространстве имён. вот два основных замечания навскидку

вообще - нормальный скрипт для использования, но очень плохой для поддержки

>через врожденную глупость забыл - эта штука пытается писать суммы прописью.

через врождённую вежливость этот момент комментировать я не буду. исходники могли бы быть короче раз в десять. и дело тут даже не в используемом языке

Я только учусь, и поэтому пишу вот такие макароны.
Может, нужно не регэкспы для разбора чисел использовать?
Есть другой алгоритм?

Re^2: Велосипед, TCL

Слегка покомментирую:

> if {$ord==1} {

> set ord "1_f"

> } elseif {$ord==2} {

> set ord "2_f"

> }

append ord "_f"

> set hnd [lindex [split $::credr ""] 0]

> set dec [lindex [split $::credr ""] 1]

> set ord [lindex [split $::credr ""] 2]

foreach {hnd dec ord} [ split $::credr "" ] {}

Ну и глобально: жутко много копипасты, как уже и говорили.

Если честно, не понял смысла:

proc ordnum {} {
 switch -regexp $::credr {
  ^0$     {puts "$::credr [lindex $::wrcred $::credr]"; return}
  ^1$     {puts "$::credr [lindex $::wrcred $::credr]"; return}
  ^[2-4]$ {puts "$::credr [lindex $::wrcred $::credr]"; return}
  ^[5-9]$ {puts "$::credr [lindex $::wrcred $::credr]"; return}
  }
 }

Тогда хотя бы так:

proc ordnum {} {
 switch -regexp $::credr {
  ^0$     -
  ^1$     -
  ^[2-4]$ -
  ^[5-9]$ {puts "$::credr [lindex $::wrcred $::credr]"}
  }
 }

Хотя и это всего лишь:

proc ordnum {} {
 if {[string is digit $::credr]} {puts "$::credr [lindex $::wrcred $::credr]"}
 }