Вот исправленная версия

Niko 23.08.2004 10:51

#base36
@base36[ch]
$basechars[0123456789abcdefghijklmnopqrstuvwxyz]
$st[]
$cod($ch)
^while($cod>0){
$cod1($cod)
^cod1.mod(36)
$st[^basechars.mid($cod1;1)$st]
^cod.div(36)
$cod(^math:floor($cod))
}
$result[$st]
#end base36

---