функция получения 36 ричной системы исчесления из 10 тичной.

Niko 22.08.2004 19:23

Вот, перевел с perlовой. Удобно для генерации кодов.

#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

---