Нашли или выдавили из себя код, который нельзя назвать нормальным,
на который без улыбки не взглянешь?
Не торопитесь его удалять или рефакторить, — запостите его на
говнокод.ру, посмеёмся вместе!
Public Class F1
Inherits System.Windows.Forms.Form
Dim number(3, 30) As Integer REM Массив для хранения 200-значного числа
Private Sub B1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1.Click
REM 52.5.16. Используя алгоритм вычисления функции n! в качестве вспомогательного,
REM напишите алгоритм вычисления суммы факториалов всех чётных чисел от 2 до 100.
Dim input As Integer REM Число, вводимое с клавиатуры
Dim a As Integer, b As Integer REM Временные переменные
REM Ввод числа с клавиатуры
L3.Text = ""
input = Int(Val(T1.Text))
If input < 0 Then input = 0
If input > 100 Then input = 100
For a = 1 To 3
For b = 1 To 30
number(a, b) = 0
Next
Next
number(1, 1) = 1
For a = 1 To input
multiply(a)
If a = input Or a Mod 20 = 0 Then
L3.Text = L3.Text & a & "! = "
shownumber(1)
L3.Text = L3.Text & " "
End If
Next
End Sub
Sub multiply(ByVal a As Integer) REM Умножение массива "number (1)" на число "a"
Dim d As Integer, e As Integer REM Временные переменные
For d = 1 To 30
number(1, d) = number(1, d) * a
Next
REM Перенос остатка, большего 10 млн., в следующий разряд массива
For d = 1 To 29
e = number(1, d) \ 10000000
number(1, d) = number(1, d) Mod 10000000
number(1, d + 1) = number(1, d + 1) + e
Next
If number(1, 30) > 10000000 Then
For d = 1 To 30
number(1, d) = 0
Next
End If
End Sub
Sub shownumber(ByVal a As Integer) REM Вывод на экран массива "number (a)"
Dim d As Integer, e As Integer, f As Integer REM Временные переменные
d = 30 REM Верхняя граница отображения числа (элемент не равен нулю)
While d > 1 And number(a, d) = 0 REM Вычисляем, где кончается ненулевая часть числа
d = d - 1
End While
REM Вывод старших разрядов
L3.Text = L3.Text & number(a, d)
REM Вывод младших разрядов
d = d - 1
For e = d To 1 Step -1 REM Какое число в массиве выводим (по одной цифре)
f = number(a, e)
L3.Text = L3.Text & f \ 1000000 & f \ 100000 Mod 10 & f \ 10000 Mod 10 & f \ 1000 Mod 10 & f \ 100 Mod 10 & f \ 10 Mod 10 & f Mod 10
Next
End Sub
End Class
Ядро предоставляет сисколл execve. Execve принимает переменные окружения в виде массива строк A=B -
не знаю конкретных причин, почему так сделано, но скорее всего просто потому что писать хэшмапу под
это дело, которая еще и будет выкинута из памяти через относительно небольшое время - дело дорогое и
ненужное, плюс наверняка какой-нибудь лишний пердолинг со стеком. https://man7.org/linux/man-pages/man2/execve.2.html
Го, "человеческий язык" с поддержкой обычных мап из коробки, ничтоже сумляшеся не замечает никакой
проблемы и заставляет пользователя передавать переменные окружения в том же формате, потому что у
языка не только синтаксис должен быть таким же тупым, как программист на нём и вообще мы же тут
делаем вид, что мы C, только лучше. https://golang.org/pkg/os/exec/#example_Command_environment
Докер, "человеческий сервис" с HTTP API, использующим формат JSON с поддержкой обычных мап из коробки,
ничтоже сумляшеся не замечает никакой проблемы и заставляет пользователя передавать переменные
окружения в том же формате, потому что на программист на языке должен быть тупым, как этот язык. https://docs.docker.com/engine/api/v1.24/#create-a-container
В результате мы имеем пачку долбоебов, из-за которых оперирующие (мапами / объектами / словарями / как угодно назовите)
нормальные люди должны вести себя как типичные гошники.
Из исходников и документации Go убрали фразы whitelist/blacklist и master/slave.
Всё из-за протестов, которые сейчас проходят в Америке.
Фразы «blacklist» и «whitelist» заменили на «blocklist» и «allowlist», а «master» и «slave»
в зависимости от контекста на «process», «pty», «proc» и «control».
Отмечается, что изменения не приведут к нарушению обратной совместимости и путанице, так как
большая часть исправлений приходится на комментарии, тесты и внутренние переменные.
Currently, we're ignoring failures to mlock signal stacks in the
workaround for #35777. This means if your mlock limit is low, you'll
instead get random memory corruption, which seems like the wrong
trade-off.
самый лучший язык на свете продолжает шпарить, отказались от free after use - получили «забыл сделать if (err != nil)»
// GostServer is the type that contains all of the relevant information to set
// up the GOST HTTP Server
type GostServer struct {
host string // Hostname for example "localhost" or "192.168.1.14"
port int // Port number where you want to run your http server on
api *models.API // SensorThings api to interact with from the HttpServer
https bool
httpsCert string
httpsKey string
httpServer *http.Server
}
// CreateServer initialises a new GOST HTTPServer based on the given parameters
func CreateServer(host string, port int, api *models.API, https bool, httpsCert, httpsKey string) Server {
setupLogger()
a := *api
router := CreateRouter(api)
return &GostServer{
host: host,
port: port,
api: api,
https: https,
httpsCert: httpsCert,
httpsKey: httpsKey,
httpServer: &http.Server{
Addr: fmt.Sprintf("%s:%s", host, strconv.Itoa(port)),
Handler: PostProcessHandler(RequestErrorHandler(LowerCaseURI(router)), a.GetConfig().Server.ExternalURI),
ReadTimeout: 30 * time.Second,
WriteTimeout: 30 * time.Second,
},
}
}
// Start command to start the GOST HTTPServer
func (s *GostServer) Start() {
t := "HTTP"
if s.https {
t = "HTTPS"
}
logger.Infof("Started GOST %v Server on %v:%v", t, s.host, s.port)
var err error
if s.https {
err = s.httpServer.ListenAndServeTLS(s.httpsCert, s.httpsKey)
} else {
err = s.httpServer.ListenAndServe()
}
if err != nil {
logger.Panicf("GOST server not properly stopped: %v", err)
}
}
// Stop command to stop the GOST HTTP server
func (s *GostServer) Stop() {
if s.httpServer != nil {
logger.Info("Stopping HTTP(S) Server")
s.httpServer.Shutdown(context.Background())
}
}