Компилируем, запускаем.про главная() нч
печать(«Привет, Мир!\н»);
кц
$ хуяк комп примеры/01-привет.хуя
$ ./примеры/01-привет
Привет, Мир!
append_path() {
local dir="$1"
if [[ -d "$dir" ]]; then
if [[ -d "$dir" && ":$PATH:" != *":$dir:"* ]]; then
export PATH="$PATH:$dir"
fi
fi
}
prepend_path() {
local dir="$1"
if [[ -d "$dir" ]]; then
if [[ -d "$dir" && ":$PATH:" != *":$dir:"* ]]; then
export PATH="$dir:$PATH"
fi
fi
}
remove_path() {
local dir="$1"
if [[ ":$PATH:" == *":$dir:"* ]]; then
local new_path=":$PATH:"
new_path="${new_path//:$dir:/:}"
new_path="${new_path#:}"
export PATH="${new_path%:}"
fi
}
remove_path /usr/games
remove_path /usr/local/games
remove_path .
append_path /usr/sbin
append_path /usr/bin
append_path /snap/bin
prepend_path /usr/local/bin
prepend_path /usr/local/sbin
prepend_path $HOME/.local/bin
Наш городок* относительно чистый. Улицы метут раз в месяц, но это касается только проезжей части, причём машины убирать никто не заставляет. Поэтому под некоторыми машинами (которые могут стоять годами) копится мусор и растёт трава.
Тротуары округ не убирает, это, видимо, считается территорией домов. Я всегда убираю случайный мусор, который нахожу на тротуаре перед моим домом, но так делают далеко не все жители нашего городка. Из моих регулярных прогулок по району вспоминается какая-то женская обувь, которая валялась на тротуаре в одном месте примерно полгода.
В основном на улицах валяется мелкий мусор, крупногабаритный мусор где попало выбросить рискованно – на некоторых домах стоят камеры, а штрафы за крупный мусор, я думаю, немаленькие.
В окрестности моих прогулок я знаю несколько мест, где крупногабаритный мусор можно выбрасывать без опаски, что засекут. И население этим пользуется.
Во-первых, это пустыри вдоль одной из улиц, километра два-три. Весной там растёт бурьян по пояс, к концу лета трава высыхает. Туда вполне можно заехать на траке и сбросить мусор, что и происходит
регулярно. Так как ничейной земли в Америке не бывает, то этот мусор на совести владельцев, и они этот мусор обычно довольно скоро убирают.
Во-вторых, это земля нашего округа. Недалеко от моего дома есть мост через ж/д, и улица перед и после моста идёт по насыпи, на которую самые хитрожопые и сбрасывают всякий мусор.
Ну и обычное место для стихийных свалок – наши ручьи. Постоянных ручьёв у нас мало, в основном это сезонные ручьи, которые при строительстве нашего района были углублены и забетонированы. И вот как раз там, где улица проходит на таким ручьём, очень удобное место, чтобы выбросить мусор. Камер – нет, подъехал ночью, выбросил/выгрузил мусор на обочину или тротуар и уехал. Коробки, чемоданы, мебель, стиральные машины, холодильники – что я только не видал за шесть лет прогулок.
Но некоторые не просто выбрасывают на улицу мусор, а перебрасывают мусор через невысокий сетчатый забор в ручей. Где этот мусор может лежать довольно долго, до нескольких месяцев – округ ручьи обязательно чистит перед осенними дождями.
* – North Highlands – это не город, а один из переписных районов нашего округа – Sacramento county.
Запускаем. Я не стал убирать таблицу загрузки, чтобы вам было видно размер кода:*name B compiler
*tape:7/b,40
*library:40
*trans-main:40020
main() {
printf("Hello, B!*n");
}
*execute
*end file
Вот ещё несколько примеров для Би из разных мест. Все они работают под Дубной:$ dubna hello.dub
...
*NAME B COMPILER
*TAPE:7/*,40
*LIBRARY:40
*TRANS-MAIN:40020
OVERLAY OT 20/04/25
B COMPILER FOR BESM-6, VERSION 04/2025
COMPILED 3 LINES OF CODE, FOUND 0 ERRORS
*NO LIST
*CALL BLOCKERR
*MADLEN
MAIN CP 0.0, ST 0.0, RT 1.0*
*READ OLD
*EXECUTE
*LIBRA:40 = B/DIV B/EQ B/GT B/LT B/MUL B/NE B/RET B/SAVE0 B/SAVE
B/TOUT B/TRUE CHAR PRINTD PRINTO PRINTF WRITE WRITEB OUT*CNT OUT*SHFT
OUT*BUFF FLUSH FOUT
≠
MAIN 01000 PRINTD 01413 B/MUL 01757 ISOTCOSY 06002
PROGRAM E 01000 PRINTO 01466 B/GT 01766 ISOTCOS1 E 06053
B/SAVE0 01011 WRITE 01517 FOUT 01771 DRUMTAP* 06073
B/RET 01016 B/TRUE 01622 WRCARD 01772 CHKWORD* C 06124
PRINTF 01023 OUT*CNT 01623 WRWORD E 02014 PRINT8 06125
B/SAVE 01256 OUT*SHFT 01624 WBEGIN E 02033 STOP* 06306
CHAR 01263 OUT*BUFF 01625 WRIEND E 02042 EXIT E 06307
B/NE 01301 FLUSH 01654 B/TOUT 02075 CBOБOДHO 06335
B/EQ 01304 B/LT 01744 WRWORD/ C 04000
WRITEB 01307 B/DIV 01747 XWRITE/ C 06000
≠
HELLO, B!
main() {
auto cx, cy, x, y, x2, y2;
auto iter;
auto xmin, xmax, ymin, ymax, maxiter, dx, dy;
xmin = -8601;
xmax = 2867;
ymin = -4915;
ymax = 4915;
maxiter = 32;
dx = (xmax - xmin) / 79;
dy = (ymax - ymin) / 24;
cy = ymin;
while (cy <= ymax) {
cx = xmin;
while (cx <= xmax) {
x = 0;
y = 0;
x2 = 0;
y2 = 0;
iter = 0;
while (iter < maxiter) {
if (x2 + y2 > 16384)
goto next;
y = ((x * y) / 2048) + cy;
x = x2 - y2 + cx;
x2 = (x * x) / 4096;
y2 = (y * y) / 4096;
iter++;
}
next:
write(' ' + iter);
cx = cx + dx;
}
write('*n');
cy = cy + dy;
}
return(0);
}
$ dubna mandelbrot.dub
...
!!!!!!!!!!!!!!!"""""""""""""####################################""""""""""""""""
!!!!!!!!!!!!!"""""""""#######################$$$$$$$%'+)%%%$$$$$#####"""""""""""
!!!!!!!!!!!"""""""#######################$$$$$$$$%%%&&(+,)++&%$$$$$$######""""""
!!!!!!!!!"""""#######################$$$$$$$$$$%%%%&')*5:/+('&%%$$$$$$#######"""
!!!!!!!!""""#####################$$$$$$$$$$%%%&&&''),@@@@@@@,'&%%%%%$$$$########
!!!!!!!"""####################$$$$$$$$%%%&'())((())*,@@@@@@/+))('&&&&)'%$$######
!!!!!!""###################$$$$$%%%%%%&&&'+.@@=/<@@@@@@@@@@@@@@@/++@..93%%$#####
!!!!!"################$$$%%%%%%%%%%&&&&'),+2@@@@@@@@@@@@@@@@@@@@@@@@@1(&&%$$####
!!!!"##########$$$$$%%&(-(''''''''''''(*,5@@@@@@@@@@@@@@@@@@@@@@@@@@@@+)-&%$$###
!!!!####$$$$$$$$%%%%%&'(*-@1.+.@-4+))**@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@4-(&%$$$##
!!!!#$$$$$$$$$%%%%%%'''++.6@@@@@@@@@8/0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@3(%%$$$$#
!!!#$$$$$$$%&&&&''()/-5.5@@@@@@@@@@@@@>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?'&%%$$$$#
!!!(**+/+<523/80/46@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@4+)'&&%%$$$$#
!!!#$$$$$$$%&&&&''().-2.@@@@@@@@@@@@@@?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'&%%$$$$#
!!!!#$$$$$$$$$%%%%%&'''/,.7@@@@@@@@@;/0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0'%%$$$$#
!!!!####$$$$$$$$%%%%%&'(*-:2.,/?-5+))**@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@4+(&%$$$##
!!!!"##########$$$$$%%&(-(''''(''''''((*,4@@@@@@@@@@@@@@@@@@@@@@@@@@@4+).&%$$###
!!!!!"################$$$%%%%%%%%%%&&&&')<,4@@@@@@@@@@@@@@@@@@@@@@@@@/('&%%$####
!!!!!!""##################$$$$$$%%%%%%&&&'*.@@@0@@@@@@@@@@@@@@@@1,,@//9)%%$#####
!!!!!!!"""####################$$$$$$$$%%%&(())((()**-@@@@@@/+)))'&&&')'%$$######
!!!!!!!!""""#####################$$$$$$$$$$%%%&&&''(,@@@@@@@+'&&%%%%%$$$########
!!!!!!!!!"""""#######################$$$$$$$$$$%%%%&')*7@0+('&%%%$$$$$#######"""
!!!!!!!!!!!"""""""######################$$$$$$$$$%%%&&(+-).*&%$$$$$$######""""""
!!!!!!!!!!!!!"""""""""#######################$$$$$$%%'3(%%%$$$$$######""""""""""
!!!!!!!!!!!!!!!""""""""""""#####################################""""""""""""""""
![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png){kind=small}
pargentum может быть интересно.vak - Хороший Учебный Язык (ХУЯ)lxe - политический кубикvak - Линуксисту на заметкуvak - Про нас пишутavva - дары волхвовvit_r - Про новостную лентуchasovschik - Слухиstas - (no subject)chasovschik - Давай деньги! Деньги давай!gmz - Ужасы нашего городкаaka_human - Не уверенaka_human - (no subject)vak - Фирма веников не вяжет...vak - Компилятор Би под Дубнойchasovschik - Misfirevit_r - Про новостную лентуvak - Вычисляем Мандельброта на БЭСМ-6 на языке Биvak - Angelo Papenhoffstas - линки недели - 531lxe - не совсем атомарный водород