Файловый менеджер - Редактировать - /var/www/jonas-eriksen.dk/jresolutions.dk/test/vendor/scrivo/highlight.php/test/detect/tcl/default.txt
Назад
package json source helper.tcl # randomness verified by a die throw set ::rand 4 proc give::recursive::count {base p} { ; # 2 mandatory params while {$p > 0} { set result [expr $result * $base]; incr p -1 } return $result } set a {a}; set b "bcdef"; set lst [list "item"] puts [llength $a$b] set ::my::tid($id) $::my::tid(def) lappend lst $arr($idx) $::my::arr($idx) $ar(key) lreplace ::my::tid($id) 4 4 puts $::rand ${::rand} ${::AWESOME::component::variable} puts "$x + $y is\t [expr $x + $y]" proc isprime x { expr {$x>1 && ![regexp {^(oo+?)\1+$} [string repeat o $x]]} }
| ver. 1.4 |
Github
|
.
| PHP 7.4.33 | Генерация страницы: 0.11 |
proxy
|
phpinfo
|
Настройка