- 1
- 2
- 3
- 4
- 5
foo() ->
Du = os:cmd("du -b "++?PM_LOGS_PATH),
[DiscSize|_] = string:tokens(Du, "\t"),
case list_to_integer(DiscSize) > 10000000000 of
...
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+141
foo() ->
Du = os:cmd("du -b "++?PM_LOGS_PATH),
[DiscSize|_] = string:tokens(Du, "\t"),
case list_to_integer(DiscSize) > 10000000000 of
...
Вся мощь эрланга. В строке может быть не только число? Let it crash!
+144
<!--
Правил верстку, затем решил не коммитить без необходимости
<table border="1" style=" width: 900pt; margin-top: 20px; table-layout: fixed;">
<col style=" width: 55pt"/>
<col style=" width: 65pt"/>
<col style=" width: 140pt"/>
<col style=" width: 70pt"/>
<col style=" width: 65pt"/>
<col style=" width: 65pt"/>
<col style=" width: 70pt"/>
<col style=" width: 70pt"/>
<col style=" width: 75pt"/>
<col style=" width: 70pt"/>
<col style=" width: 75pt"/>
-->
И все-таки закоммитил.
+142
### TASK 1
R <- 1.987
toSi <- function (value, molar_mass) {
return (value * 4190 / molar_mass)
}
delta <- function (experiment, theory) {
return((experiment - theory)/experiment*100)
}
einsteinFormula <- function (t, A, B, D) {
return(A + B * t + D * t^2)
}
bennewitzRossner <- function (cv, Cnu, n, m, Cd, q) {
coeff1 = (3*n-6-m-q)/q
return(cv + R + 1/2 * m * R + Cnu + coeff1*Cd)
}
heatCapacity <- function(n, links, t, Anu, Bnu, Dnu, Ad, Bd, Dd, m, M) {
c_nu <- einsteinFormula(t, Anu, Bnu, Dnu)
#print(c_nu)
c_d <- einsteinFormula(t, Ad, Bd, Dd)
#print(c_d)
C_rot <- sum(c_nu*links)
C_bend <- sum(c_d*links)
q <- sum(links)
C_kalmol <- bennewitzRossner(3*R, C_rot, n, m, C_bend, q)
C_br <- toSi(C_kalmol, M)
return(data.frame(C_kalmol, C_br, C_rot, C_bend))
}
task11 <- function () {
t_C6H14 <- c(400, 600, 800)
n_C6H14 <- 20
m_C6H14 <- 5
M_C6H14 <- 86.2
Cp_C6H14_kalmol <- (3 * n_C6H14 - 2) * R
#print(Cp_C6H14_kalmol)
Cp_C6H14_mkt <- toSi(Cp_C6H14_kalmol, M_C6H14)
# print(Cp_C6H14_mkt)
Cp_C6H14_exp <- c(1890, 2611, 3159)
deltaC <- delta(Cp_C6H14_exp, Cp_C6H14_mkt)
cp_C6H14_1 <- heatCapacity(
20,
c(5, 14), #Links number
400, #Temperatures
c(-1.09, 0.229), c(6*10^-3, -1.224*10^-3), c(-4.495*10^-6, 1.658*10^-6), #A, B, D rotational
c(0.73, -0.928), c(3.414*10^-3, 3.9*10^-3), c(-2.577*10^-6, -1.324*10^-6), #A, B, D bending
m_C6H14, 86.2
)
cp_C6H14_2 <- heatCapacity(
20,
c(5, 14), #Links number
600, #Temperatures
c(-1.09, 0.229), c(6*10^-3, -1.224*10^-3), c(-4.495*10^-6, 1.658*10^-6), #A, B, D rotational
c(0.73, -0.928), c(3.414*10^-3, 3.9*10^-3), c(-2.577*10^-6, -1.324*10^-6), #A, B, D bending
m_C6H14, 86.2
)
cp_C6H14_3 <- heatCapacity(
20,
c(5, 14), #Links number
800, #Temperatures
c(-1.09, 0.229), c(6*10^-3, -1.224*10^-3), c(-4.495*10^-6, 1.658*10^-6), #A, B, D rotational
c(0.73, -0.928), c(3.414*10^-3, 3.9*10^-3), c(-2.577*10^-6, -1.324*10^-6), #A, B, D bending
m_C6H14, 86.2
)
cp <- c(cp_C6H14_1$C_br, cp_C6H14_2$C_br, cp_C6H14_3$C_br)
print(c(cp_C6H14_1$C_rot, cp_C6H14_2$C_rot, cp_C6H14_3$C_rot))
print(c(cp_C6H14_1$C_bend, cp_C6H14_2$C_bend, cp_C6H14_3$C_bend))
deltaC_br <- delta(Cp_C6H14_exp, cp)
#r <- data.frame(t, Cp_C6H14_mkt, Cp_C6H14_exp, cp, deltaC, deltaC_br)
return(data.frame(t_C6H14, Cp_C6H14_mkt, Cp_C6H14_exp, deltaC, cp, deltaC_br))
}
Мой грязный говнокод на R. Решал дз в инст, рассчет теплоемкости дряни по методу -Д-ж-и-г-у-р-д-ы-и-Б-а-р-р-и-А-л-е-б-а-с-о-в-а- Бенневица-Росснера. Шлю в кучу, потому что нет раздела для эрочки :( Особая ржака начинается со строчки №46.
+141
package eapi
// #include <eggdrop/mod/module.h>
// #include <eggdrop/main.h>
// #include <eggdrop/proto.h>
import (
"C"
"errors"
)
const (
DP_STDOUT = 0x7FF1
DP_LOG = 0x7FF2
DP_SERVER = 0x7FF3
DP_HELP = 0x7FF4
DP_STDERR = 0x7FF5
DP_MODE = 0x7FF6
DP_MODE_NEXT = 0x7FF7
DP_SERVER_NEXT = 0x7FF8
DP_HELP_NEXT = 0x7FF9
)
var (
binds []struct{
flags,match string
list *C.tcl_bind_list_t
}
bind_num int = 0
)
//...
func Bind(event,flags,match string, proc func(cd *C.ClientData, irp *C.Tcl_Interp, argc C.int, argv *[]C.char)) int,error{
tl := C.find_bind_table(C.CString(event))
if tl == nil{
return -1,errors.New("No such event table : "+ event)
}
func_name := bname(bind_num)
bind_num++
var cmd []C.tcl_cmds = {
{func_name,proc},
{nil,nil}
}
C.tcl_add_commands(cmd)
C.bind_bind_entry(tl, C.CString(flags), C.CString(match), C.CString(func_name))
append(binds,{flags,match,tl})
return bind_num-1,nil
}
func Unbind(int num){
if binds[num] == nil{
return
}
C.unbind_bind_entry(binds[num].list, C.CString(binds[num].flags), C.CString(binds[num].match), C.CString(bname(num)))
}
обертка на Go для Eggdrop API
+124
http://m.habrahabr.ru/post/249637/
−24
Оффтоп #2
Первая часть: http://govnokod.ru/18142
−54
* g o a t s e x * g o a t s e x * g o a t s e x *
g g
o / \ \ / \ o
a| | \ | | a
t| `. | | : t
s` | | \| | s
e \ | / / \\\ --__ \\ : e
x \ \/ _--~~ ~--__| \ | x
* \ \_-~ ~-_\ | *
g \_ \ _.--------.______\| | g
o \ \______// _ ___ _ (_(__> \ | o
a \ . C ___) ______ (_(____> | / a
t /\ | C ____)/ \ (_____> |_/ t
s / /\| C_____) | (___> / \ s
e | ( _C_____)\______/ // _/ / \ e
x | \ |__ \\_________// (__/ | x
* | \ \____) `---- --' | *
g | \_ ___\ /_ _/ | g
o | / | | \ | o
a | | / \ \ | a
t | / / | | \ |t
s | / / \__/\___/ | |s
e | / | | | |e
x | | | | | |x
* g o a t s e x * g o a t s e x * g o a t s e x *
https://searchcode.com/?q=goatse
https://code.openhub.net/search?s=goatse
+145
.panel-top ul.panel li:nth-child(1){
order: 1;
}
.panel-top ul.panel li:nth-child(2){
order: 4;
}
.panel-top ul.panel li:nth-child(3){
order: 2;
}
.panel-top ul.panel li:nth-child(4){
order: 5;
}
.panel-top ul.panel li:nth-child(5){
order: 3;
}
.panel-top ul.panel li:nth-child(6){
order: 6;
}
CSS Responsive
+144
$ git log --pretty=oneline
c8220f95d1b11d2e8a2d57cf4349c40a180bd7f3 Commit 33
6eeac872fa772c2ea1d57faf286f6520fc831777 Commit 32
fba42d3f0a6678e670d477bcc0c56819cafd34f9 Commit 31
4292c5dc9cb9c4360f7ad03b2d5ecabbeb451a55 Commit 30
2ba640394371f0fd44296c41b99fd42f6abfaf95 Commit 29
80aa4d6754e5f82f3b111075747fd74f63e1a26c Commit 28
7f43aa08d9d94e6c09f6435635942010320a824e Commit 27
574524bf2b0dcb8070ce46ced75cec626e7c84ad Commit 26
eb620063a690c489e746e2f5633771da66df0903 Commit 25
...
https://github.com/gikraychik/bets
+142
'Check that the TGD exists
If objFSO.FileExists(strTGDFileName) Then
'Get the definition of the tag group
objTagGroupFile.RetrieveDefinition strTGDFileName, intArrayLength, varSymbols, varSubstitutions, varDescriptions
'Ensure that the supplied strings match the strings in the tag group
If (UBound(strSymbols) = UBound(strSubstitutions) And UBound(strSymbols) = UBound(varSymbols) And UBound(strSymbols) = UBound(varSubstitutions)) Or _
(blIgnoreAdditional And (UBound(strSymbols) = UBound(strSubstitutions) And UBound(strSymbols) < UBound(varSymbols) And UBound(strSymbols) < UBound(varSubstitutions))) Then
For intLoop = 0 To UBound(strSymbols)
If Not (strSymbols(intLoop) = varSymbols(intLoop) And strSubstitutions(intLoop) = varSubstitutions(intLoop)) Then
'TDG is out of date; create tag group file
CheckTagGroup = IIf(CreateTagGroupFile(strSymbols, strSubstitutions, strDescriptions, strTGDFileName), 1, 0)
GoTo Way_Out
End If
Next
Else
'TDG is out of date; create tag group file
CheckTagGroup = IIf(CreateTagGroupFile(strSymbols, strSubstitutions, strDescriptions, strTGDFileName), 1, 0)
GoTo Way_Out
End If
Else
'TGD does not exist so create the file
CheckTagGroup = IIf(CreateTagGroupFile(strSymbols, strSubstitutions, strDescriptions, strTGDFileName), 1, 0)
GoTo Way_Out
End If
Всё равно получишь шайбу!
Вот такие умные проверки нашёл перед вызовом одной и той же функции.
VB6