- 1
- 2
- 3
- 4
- 5
говорят, что на PL/1 это работает:
if if = then then
then = else;
else else = if;
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+140
говорят, что на PL/1 это работает:
if if = then then
then = else;
else else = if;
+175
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
procedure Test is
v : Long_Float := 26.0;
v1 : float := 26.0;
begin
while (v<27.0) loop
Put_Line("Value = " & Long_Float'image(v));
v:=v+0.2;
end loop;
while (v1<27.0) loop
Put_Line("Value = " & float'image(v1));
v1:=v1+0.2;
end loop;
end;
ideone.com/pXIhvY
Безопасный военный язык, да.
+132
main = do
print [1 .. 9]
print [1, 3 .. 9]
print [1, 3 .. 10]
print [26.0, 26.2 .. 27.0]
print [25.5..30.0]
print [25, 25 .. 25]
В хаскеле сломан генератор списков. :(
http://ideone.com/AvBSuz
+128
f = expr `catches` [Handler (\ (ex :: ArithException) -> handleArith ex), Handler (\ (ex :: IOException) -> handleIO ex)]
Собственно это пример как в хаскеле перехватывать исключения из одного выражения expr.
Выглядит конечно отстойно. Очень многословно и судя по всему метода проще нет. И понятное дело, в чистых ленивых функциях это не работает. Ловить исключения можно только в грязных IO-функциях, тк сигнатура такова: catches :: IO a -> [Handler a] -> IO a
+123
(format t "~{~[~:R~; ~S~:;none~] chance~^, ~}" '(0 1 0 2 0 3))
;; first chance, second chance, third chance
Любителям ДСЛ (а так же древесно-стружечных плит, и других керамических изделий):
Объясните почему так работает? Наверное не говнокод, просто нихрена не понятно.
+127
<COUNTRY>Испания</COUNTRY>
<REGION><![CDATA[Краснодарский Край]]></REGION>
"Максим не знал, смеяться или плакать, Максим не знал, зачем учился в школе..."(с)
xml-выгрузка данных с одного сайта агентства недвижимости.
+129
arr <- return $ map (2*) lst
Я тут читал раздел на одном форуме по решению задач для школьников и наткнулся на такое говно.
- let?
- Не, не слышал.
Подозреваю, что автор не понял, что let нужно писать без in в монадах, чтобы скомпилировалось.
+126
PHP (66%, 152 голосов)
C++ (8%, 18 голосов)
Java (5%, 12 голосов)
Delphi (5%, 11 голосов)
Ни одного не знаю ( (4%, 10 голосов)
C# (4%, 9 голосов)
JavaScript (3%, 8 голосов)
Ни одного не знаю (2%, 5 голосов)
C (1%, 3 голосов)
Perl (0%, 1 голосов)
Ассемблер (0%, 1 голосов)
Python (0%, 0 голосов)
Ruby (2%, 0 голосов)
Всего голосов: 230
Нормальная такая статистика. Прогеры явно подигрывают ruby
+123
fixed login dabl validation;
dabl ajax zaproses;
комментарий к коммиту
+130
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<title>Centering div content in 2012 using CSS</title>
<meta name="viewport" content="width=device-width, initial-scale=1, maximum-scale=1">
<style>
/* align horizontally */
.fu { width: 100%; text-align: center; }
/* align vertically */
@media all and (min-height:0px) { .fu { margin-top: 0px; }}
@media all and (min-height:2px) { .fu { margin-top: 1px; }}
@media all and (min-height:4px) { .fu { margin-top: 2px; }}
@media all and (min-height:6px) { .fu { margin-top: 3px; }}
@media all and (min-height:8px) { .fu { margin-top: 4px; }}
@media all and (min-height:10px) { .fu { margin-top: 5px; }}
@media all and (min-height:12px) { .fu { margin-top: 6px; }}
@media all and (min-height:14px) { .fu { margin-top: 7px; }}
@media all and (min-height:16px) { .fu { margin-top: 8px; }}
@media all and (min-height:18px) { .fu { margin-top: 9px; }}
@media all and (min-height:20px) { .fu { margin-top: 10px; }}
@media all and (min-height:22px) { .fu { margin-top: 11px; }}
.....
.....
.....
@media all and (min-height:1994px) { .fu { margin-top: 997px; }}
@media all and (min-height:1996px) { .fu { margin-top: 998px; }}
@media all and (min-height:1998px) { .fu { margin-top: 999px; }}
</style>
</head>
<body>
<div class="fu">horizontally and vertically centered</div>
</body>
</html>
Центрируем содержимое дива по горизонтали и вертикали :) http://jsfiddle.net/ykrBh/