- 1
Бесконечный оффтоп имени Гологуба #7
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
0
Бесконечный оффтоп имени Гологуба #7
#1: https://govnokod.ru/28992 https://govnokod.xyz/_28992
#2: https://govnokod.ru/29053 https://govnokod.xyz/_29053
#3: https://govnokod.ru/29075 https://govnokod.xyz/_29075
#4: https://govnokod.ru/29110 https://govnokod.xyz/_29110
#5: https://govnokod.ru/29127 https://govnokod.xyz/_29127
#6: https://govnokod.ru/29140 https://govnokod.xyz/_29140
0
echo {a..z} | tr ' ' '\n' | wc -l
настоящий инженер знает где посмотреть
0
IT Оффтоп #219
#189: https://govnokod.ru/28840 https://govnokod.xyz/_28840
#190: https://govnokod.ru/28875 https://govnokod.xyz/_28875
#191: https://govnokod.ru/28878 https://govnokod.xyz/_28878
#192: https://govnokod.ru/28886 https://govnokod.xyz/_28886
#193: https://govnokod.ru/28911 https://govnokod.xyz/_28911
#194: https://govnokod.ru/28914 https://govnokod.xyz/_28914
#195: https://govnokod.ru/28917 https://govnokod.xyz/_28917
#196: https://govnokod.ru/28925 https://govnokod.xyz/_28925
#197: https://govnokod.ru/28935 https://govnokod.xyz/_28935
#198: https://govnokod.ru/28938 https://govnokod.xyz/_28938
#199: https://govnokod.ru/28942 https://govnokod.xyz/_28942
#200: https://govnokod.ru/28945 https://govnokod.xyz/_28945
#201: https://govnokod.ru/28948 https://govnokod.xyz/_28948
#202: https://govnokod.ru/28951 https://govnokod.xyz/_28951
#203: https://govnokod.ru/28954 https://govnokod.xyz/_28954
#204: https://govnokod.ru/28971 https://govnokod.xyz/_28971
#205: https://govnokod.ru/28986 https://govnokod.xyz/_28986
#206: https://govnokod.ru/28991 https://govnokod.xyz/_28991
#207: https://govnokod.ru/29002 https://govnokod.xyz/_29002
#208: https://govnokod.ru/29060 https://govnokod.xyz/_29060
#209: https://govnokod.ru/29070 https://govnokod.xyz/_29070
#210: https://govnokod.ru/29079 https://govnokod.xyz/_29079
#211: https://govnokod.ru/29092 https://govnokod.xyz/_29092
#212: https://govnokod.ru/29093 https://govnokod.xyz/_29093
#213: https://govnokod.ru/29104 https://govnokod.xyz/_29104
#214: https://govnokod.ru/29114 https://govnokod.xyz/_29114
#215: https://govnokod.ru/29125 https://govnokod.xyz/_29125
#216: https://govnokod.ru/29132 https://govnokod.xyz/_29132
#217: https://govnokod.ru/29147 https://govnokod.xyz/_29147
#218: https://govnokod.ru/29156 https://govnokod.xyz/_29156
0
(defun foo (baz s a)
(let ((ref #'foo))
(defun foo (baz s a)
(let ((ref #'foo))
(if (zerop a)
s
(funcall baz ref s a))))
(if (functionp baz)
(funcall baz ref (1+ s) (1- a))
(funcall #'foo ref (1+ s) (1- a)))))
Я объявляю конкурс, кто напишет самую запутанную и избыточную функцию сложения двух чисел которая только могла быть тот и победил. Я начну (см. код выше)
0
(macrolet ((|(| ((&rest |)|) &body |((|) #|||# `(let ,|)| ,@|((|))
(|))| #|||# (|(((| |))(| &body |()(|) `(defun ,|(((| ,|))(| ,@|()(|))
(|()| (|)| |()))(()| #|||# |(((())|) `(if ,|)| ,|()))(()| ,|(((())|))
(|))(| (|(|) `(1+ ,|(|)) (|(()| (|)|) `(1- ,|)|))
(|((((| (|))|) `(zerop ,|))|))
(|)()(| (|(((|) `(functionp ,|(((|))
(|))(()| (|)(()(| &rest |(()((|) `(,|)(()(| ,@|(()((|)))
( |))| |())())()| (|)()| |)| |)(|)
(|(| ((|)()())| #'|())())()|))
(|))| |())())()| (|)()| |)| |()|)
(|(| ((|))()()))((| #'|())())()|))
(|()| (|((((| |()|)
|)|
(|))(()| |)()| |))()()))((| |)| |()|))))
(|()| (|)()(| |)()|)
(|))(()| |)()| |)()())| (|))(| |)|) (|(()| |)(|))
(|))(()| #'|())())()| |)()())| (|))(| |)|) (|(()| |)(|))))))
Программа складывает два числа.
+2
<?php
function hsum($a, $b, $p) {
$hs = $a ^ $b;
$hp = $a & $b;
$p <<= 1;
return [$hs ^ $p, $hp | ($hs & $p)];
}
function hsum_rec($a, $b, $p) {
list($s, $newp) = hsum($a, $b, $p);
if ($newp == $p) {
return [$s, $newp];
} else {
return hsum_rec($a, $b, $newp);
}
}
function sum2($a, $b) {
list($s, $p) = hsum_rec($a, $b, 0);
return $s;
}
for($i = 0; $i < 16; $i++) {
for($j = 0; $j < 16; $j++) {
if(sum2($i,$j) != $i + $j) {
$k = sum2($i,$j);
echo "Error: $i, $j, $k\n";
}
}
}
Программа складывает два целых числа.
0
(ql:quickload :blockchain)
(ql:quickload :quantum)
(ql:quickload :windows)
(ql:quickload :connector-5g)
(ql:quickload :connector-4g)
(ql:quickload :nft)
(ql:quickload :nn-lisp)
(ql:quickload :rl)
(ql:quickload :cl-cuda)
(ql:quickload :cl-tpu)
(ql:quickload :cl-blas)
(ql:quickload :cl-cublas)
(ql:quickload :cudnn)
(ql:quickload :spike)
(ql:quickload :sparse-tensor)
(ql:quickload :trivial-cpu)
(defpackage :skynet.core.nn
(:use :cl))
;; AGPL 3.0
;; ALL RIGHTS ARE RESERVED
;;;; *-* Mode: Lisp *-*
;; Author: John McCarthy II
;; License: AGPL 3.0
;; File: skynet-nn.lisp
;; Filepath: skynet/core/skynet-nn.lisp
;;;;
(defun ai-cublas-tpu-engine-nft-innovative-algorithm-revolutionary-neural-network-blas-cudnn-5g-4g-quantum-blockchain-lstm-rnn-cnn-gru-fnn-fc-resnet-big-data-machine-learning-data-science (blockchain 5g ai)
"Uploads information from the blockchain to artificial intelligence through modern technologies"
;; Initialize the blockchain and adapter
(let* ((msg "GET_BLOCKCHAIN_AI_DATA")
(data (or
(connector-5g:load-data-from-server msg)
(connector-4g:load-data-from-server msg)))
(nn-prediction (nn-lisp:forward ai data))
(device (or
(tpu:is-available)
(gpu:is-available)
(trivial-cpu:get-device))))
(setf (blockchain:data blockchain) nn-prediction)
(setf (blockchain:silent-mode blockchain) nil)
(setf (blockchain:backend blockchain) device)
(blockchain:start-blockchain blockchain))
;; Now we need to use hardware acceleration
(defun relu ())
(defun sigmoid ())
(setf #'relu (or #'cudnn:relu #'nnl2:relu)
#'sigmoid (or #'cudnn:sigmoid #'nnl2:sigmoid))
;; We get a prediction of a modern neural network spike
(let ((snn (spike:make-snn :in 4 :out 8 :reward (rl:make-q-table)))) (blockchain:transfer blockchain :to snn :alignment 4)
(windows:make-snapshot)
(quantum:lparallel #'(lambda () (spike:prediction :keyc #'relu :keyd #'sigmoid :to ai :meta (nft:get-latest-metadata))
;; We copy the AI data to the tensor and return
(let ((data (sparse:make-tensor (nnl-lisp:data ai))))
data))