Куча говна / Говнокод #12003 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
println    (13.0 to 14.0 by 0.1);
println    (1.3 to  1.4 by 0.01);
println    (7.0 to 8.2 by 0.3);

//Output:
NumericRange(13.0, 13.1, 13.2, 13.3, 13.4, 13.5, 13.6, 13.7, 13.8, 13.9, 14.0)
NumericRange(1.3, 1.31, 1.32, 1.33, 1.34, 1.35, 1.36, 1.37, 1.38, 1.39)
java.lang.ArithmeticException: Non-terminating decimal expansion; no exact representable decimal result.
	at java.math.BigDecimal.divide(BigDecimal.java:1616)

Скала - говно. Вернее даже говнище. И это достойно отдельного поста.
Консолька для запуска тут:
http://www.simplyscala.com/

3.14159265 3.14159265, (Updated )

Комментарии (14, +14)

Куча говна / Говнокод #11979 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
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
Безопасный военный язык, да.

3.14159265 3.14159265, (Updated )

Комментарии (42, +42)

Куча говна / Говнокод #11968 Ссылка на оригинал

0

  1. 1
f = expr `catches` [Handler (\ (ex :: ArithException) -> handleArith ex), Handler (\ (ex :: IOException)    -> handleIO    ex)]

Собственно это пример как в хаскеле перехватывать исключения из одного выражения expr.
Выглядит конечно отстойно. Очень многословно и судя по всему метода проще нет. И понятное дело, в чистых ленивых функциях это не работает. Ловить исключения можно только в грязных IO-функциях, тк сигнатура такова: catches :: IO a -> [Handler a] -> IO a

HaskellGovno HaskellGovno, (Updated )

Комментарии (43, +43)

Куча говна / Говнокод #11956 Ссылка на оригинал

0

  1. 1
  2. 2
(format t "~{~[~:R~; ~S~:;none~] chance~^, ~}" '(0 1 0 2 0 3))
;; first chance, second chance, third chance

Любителям ДСЛ (а так же древесно-стружечных плит, и других керамических изделий):
Объясните почему так работает? Наверное не говнокод, просто нихрена не понятно.

wvxvw wvxvw, (Updated )

Комментарии (2, +2)

Куча говна / Говнокод #11948 Ссылка на оригинал

0

  1. 1
  2. 2
<COUNTRY>Испания</COUNTRY>
 <REGION><![CDATA[Краснодарский Край]]></REGION>

"Максим не знал, смеяться или плакать, Максим не знал, зачем учился в школе..."(с)
xml-выгрузка данных с одного сайта агентства недвижимости.

twsdwf twsdwf, (Updated )

Комментарии (3, +3)

Куча говна / Говнокод #11944 Ссылка на оригинал

0

  1. 1
arr <- return $ map (2*) lst

Я тут читал раздел на одном форуме по решению задач для школьников и наткнулся на такое говно.
- let?
- Не, не слышал.
Подозреваю, что автор не понял, что let нужно писать без in в монадах, чтобы скомпилировалось.

HaskellGovno HaskellGovno, (Updated )

Комментарии (9, +9)

Куча говна / Говнокод #11929 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
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

Vasiliy Vasiliy, (Updated )

Комментарии (13, +13)