Skip to main content
Code Golf

Return to Answer

added 400 characters in body
Source Link
sergiol
sergiol
  • 3.4k
  • 1
  • 15
  • 31

Tcl, 9291 bytes

set a {}
time {set aputs [format %c%[expr [expr13+[incr 123-[incri]/2]s i]]]$a;puts[set a [format %[expr%c 13+$i/2]s[expr $a]123-$i]]$a]]} 26

Try it online!Try it online!

With the help of ChatGPT

# [Tcl], 92 bytes 
set a {}
time {set a [format %c [expr 123-[incr i]]]$a;puts [format %[expr 13+$i/2]s $a]} 26

Try it online!

#tcl, 94 
set a {}
set i 123
time {set a [format %c [incr i -1]]$a;puts [format %[expr 74-$i/2]s $a]} 26

demo

In the middle of the process, I accidentaly got the italic version of the hat:

#tcl, 94

set a {}
set i 123
time {set a [format %c [incr i -1]]$a;puts [format %[expr $i/2-24]s $a]} 26

demo

#tcl, 101 
set a {}
set i 123
while \$i>97 {set a [format %c [incr i -1]]$a;puts [format %[expr ($i-48)/2]s $a]}

demo

In the middle of the process, I accidentaly got the italic version of the hat:

#tcl, 99

set a {}
set i 123
while \$i>97 {set a [format %c [incr i -1]]$a;puts [format %[expr $i/2-24]s $a]}

demo

Tcl, 92 bytes

set a {}
time {set a [format %c [expr 123-[incr i]]]$a;puts [format %[expr 13+$i/2]s $a]} 26

Try it online!

#tcl, 94 
set a {}
set i 123
time {set a [format %c [incr i -1]]$a;puts [format %[expr 74-$i/2]s $a]} 26

demo

In the middle of the process, I accidentaly got the italic version of the hat:

#tcl, 94

set a {}
set i 123
time {set a [format %c [incr i -1]]$a;puts [format %[expr $i/2-24]s $a]} 26

demo

#tcl, 101 
set a {}
set i 123
while \$i>97 {set a [format %c [incr i -1]]$a;puts [format %[expr ($i-48)/2]s $a]}

demo

In the middle of the process, I accidentaly got the italic version of the hat:

#tcl, 99

set a {}
set i 123
while \$i>97 {set a [format %c [incr i -1]]$a;puts [format %[expr $i/2-24]s $a]}

demo

Tcl, 91 bytes

set a {}
time {puts [format %[expr 13+[incr i]/2]s [set a [format %c [expr 123-$i]]$a]]} 26

Try it online!

With the help of ChatGPT

# [Tcl], 92 bytes 
set a {}
time {set a [format %c [expr 123-[incr i]]]$a;puts [format %[expr 13+$i/2]s $a]} 26

Try it online!

#tcl, 94 
set a {}
set i 123
time {set a [format %c [incr i -1]]$a;puts [format %[expr 74-$i/2]s $a]} 26

demo

In the middle of the process, I accidentaly got the italic version of the hat:

#tcl, 94

set a {}
set i 123
time {set a [format %c [incr i -1]]$a;puts [format %[expr $i/2-24]s $a]} 26

demo

#tcl, 101 
set a {}
set i 123
while \$i>97 {set a [format %c [incr i -1]]$a;puts [format %[expr ($i-48)/2]s $a]}

demo

In the middle of the process, I accidentaly got the italic version of the hat:

#tcl, 99

set a {}
set i 123
while \$i>97 {set a [format %c [incr i -1]]$a;puts [format %[expr $i/2-24]s $a]}

demo

added 366 characters in body
Source Link
sergiol
sergiol
  • 3.4k
  • 1
  • 15
  • 31

#tcl, 94

Tcl, 92 bytes

set a {}
set i 123
time {set a [format %c [incr i[expr 123-1]]$a;puts[incr i]]]$a;puts [format %[expr 74-$i13+$i/2]s $a]} 26

demo

Try it online!

#tcl, 94 
set a {}
set i 123
time {set a [format %c [incr i -1]]$a;puts [format %[expr 74-$i/2]s $a]} 26

demo

In the middle of the process, I accidentaly got the italic version of the hat:

#tcl, 94

set a {}
set i 123
time {set a [format %c [incr i -1]]$a;puts [format %[expr $i/2-24]s $a]} 26

demo

#tcl, 101 
set a {}
set i 123
while \$i>97 {set a [format %c [incr i -1]]$a;puts [format %[expr ($i-48)/2]s $a]}

demo

In the middle of the process, I accidentaly got the italic version of the hat:

#tcl, 99

set a {}
set i 123
while \$i>97 {set a [format %c [incr i -1]]$a;puts [format %[expr $i/2-24]s $a]}

demo

#tcl, 94

set a {}
set i 123
time {set a [format %c [incr i -1]]$a;puts [format %[expr 74-$i/2]s $a]} 26

demo

In the middle of the process, I accidentaly got the italic version of the hat:

#tcl, 94

set a {}
set i 123
time {set a [format %c [incr i -1]]$a;puts [format %[expr $i/2-24]s $a]} 26

demo

#tcl, 101 
set a {}
set i 123
while \$i>97 {set a [format %c [incr i -1]]$a;puts [format %[expr ($i-48)/2]s $a]}

demo

In the middle of the process, I accidentaly got the italic version of the hat:

#tcl, 99

set a {}
set i 123
while \$i>97 {set a [format %c [incr i -1]]$a;puts [format %[expr $i/2-24]s $a]}

demo

Tcl, 92 bytes

set a {}
time {set a [format %c [expr 123-[incr i]]]$a;puts [format %[expr 13+$i/2]s $a]} 26

Try it online!

#tcl, 94 
set a {}
set i 123
time {set a [format %c [incr i -1]]$a;puts [format %[expr 74-$i/2]s $a]} 26

demo

In the middle of the process, I accidentaly got the italic version of the hat:

#tcl, 94

set a {}
set i 123
time {set a [format %c [incr i -1]]$a;puts [format %[expr $i/2-24]s $a]} 26

demo

#tcl, 101 
set a {}
set i 123
while \$i>97 {set a [format %c [incr i -1]]$a;puts [format %[expr ($i-48)/2]s $a]}

demo

In the middle of the process, I accidentaly got the italic version of the hat:

#tcl, 99

set a {}
set i 123
while \$i>97 {set a [format %c [incr i -1]]$a;puts [format %[expr $i/2-24]s $a]}

demo

added 478 characters in body
Source Link
sergiol
sergiol
  • 3.4k
  • 1
  • 15
  • 31

#tcl, 10194

set a {}
set i 123
while \$i>97time {set a [format %c [incr i -1]]$a;puts [format %[expr ($i74-48)$i/2]s $a]} 26

demo

demo

In the middle of the process, I accidentalaccidentaly got the italic version of the hat:

#tcl, 9994

set a {}
set i 123
while \$i>97time {set a [format %c [incr i -1]]$a;puts [format %[expr $i/2-24]s $a]} 26

demodemo

#tcl, 101 
set a {}
set i 123
while \$i>97 {set a [format %c [incr i -1]]$a;puts [format %[expr ($i-48)/2]s $a]}

demo

In the middle of the process, I accidentaly got the italic version of the hat:

#tcl, 99

set a {}
set i 123
while \$i>97 {set a [format %c [incr i -1]]$a;puts [format %[expr $i/2-24]s $a]}

demo

#tcl, 101

set a {}
set i 123
while \$i>97 {set a [format %c [incr i -1]]$a;puts [format %[expr ($i-48)/2]s $a]}

demo

In the middle of the process, I accidental got the italic version of the hat:

#tcl, 99

set a {}
set i 123
while \$i>97 {set a [format %c [incr i -1]]$a;puts [format %[expr $i/2-24]s $a]}

demo

#tcl, 94

set a {}
set i 123
time {set a [format %c [incr i -1]]$a;puts [format %[expr 74-$i/2]s $a]} 26

demo

In the middle of the process, I accidentaly got the italic version of the hat:

#tcl, 94

set a {}
set i 123
time {set a [format %c [incr i -1]]$a;puts [format %[expr $i/2-24]s $a]} 26

demo

#tcl, 101 
set a {}
set i 123
while \$i>97 {set a [format %c [incr i -1]]$a;puts [format %[expr ($i-48)/2]s $a]}

demo

In the middle of the process, I accidentaly got the italic version of the hat:

#tcl, 99

set a {}
set i 123
while \$i>97 {set a [format %c [incr i -1]]$a;puts [format %[expr $i/2-24]s $a]}

demo

Source Link
sergiol
sergiol
  • 3.4k
  • 1
  • 15
  • 31