- 1
- 2
halve :: [a] -> ([a], [a])
halve xs = (\xs mf -> (take (mf xs) xs, drop (mf xs) xs)) xs (\l -> (div (length l) 2))
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+1
halve :: [a] -> ([a], [a])
halve xs = (\xs mf -> (take (mf xs) xs, drop (mf xs) xs)) xs (\l -> (div (length l) 2))
делим список пополам
ЧЯДНТ?
+2
Где-то далеко в index.php:
require_once 'face.php';
А где-то внутри face.php :
require_once $_SERVER['DOCUMENT_ROOT'].'/includes/sidebar.html'
А в середине sidebar.html вот такое:
<div class="sideBoxContent" style="font-size:1.2em;">
<ul class="list">
<?php
require_once $_SERVER['DOCUMENT_ROOT'].'/config/config.php';
$dbt=db_connect();
$dbt->query("SET NAMES 'utf8'");
$resultt = $dbt->query("SELECT * FROM a_news ORDER BY date DESC LIMIT 3");
while ($myrowt = $resultt->fetch_array(MYSQLI_ASSOC))
{
echo "
<li><script>addLink('icon go-clear','/b2b/news/news.html','".$myrowt["title"]."')</script></li>";
}
$resultt->close();
$dbt->close();
?>
</ul>
<script>addLink('icon go','/b2b/news/news.html','Все новости')</script>
</div>
</div>
P.S. addLink(c, h, t) генерит <a class="c" href="h">t</a>
Господи, господи, зачем???
Нет, возможно это не говнокод. Возможно, я чего-то не понимаю в этой жизни. Но чего???
P.S. Я даже не знаю какой язык ставить. Тут и PHP, и JS...
+3
class ResourcePack
{
MultipleLinearMaps<string, Texture, Mesh, Model3D, VideoBuffer, Shader, ShaderObj, Framebuffer,
Effect, PostEffect, Sampler, VertexLayout, StructureType, ParameterBlock,
ShaderTemplate, ShaderModuleTemplate, ShaderModule, ShaderModuleType,
ShaderGenerator, ShaderLibrary, ImageFunction> maps;
//...
};
Наконец-то я осилил variadic templates!
+3
Поднял форум. Запилил чатик.
Теперь можно грабить корованы чмокать всех в чатике.
+1
namespace SmalltalkPHP
{
class Model
{
internal static void CreateClass(string className)
{
ClassObject = new Class(className);
}
public static Class ClassObject { get; set; }
public class Message
{
public class Arguments
{
private SortedList arguments = new SortedList();
public void Add(String key, String name)
{
this.arguments.Add(key, name);
}
public String AsPhp()
{
String[] sb = new String[arguments.Count];
int i = 0;
foreach (DictionaryEntry arg in arguments)
{
if ((String)(arg.Value) != "") sb[i] = "$" + arg.Value;
i++;
}
return String.Join(", ", sb);
}
public String MakeFunctionName()
{
String[] sb = new String[arguments.Count];
int i = 0;
foreach (DictionaryEntry arg in arguments)
{
if ((String)(arg.Key) != "") sb[i] = (String)arg.Key;
i++;
}
return String.Join("_", sb);
}
}
public class Generic
{
public virtual string AsPhp()
{
return "nya";
}
}
public class Unary : Generic
{
public Unary(String name, Boolean isStatic = false)
{
this.Name = name;
this.Arguments = new Arguments();
this.IsStatic = isStatic;
}
public string Name { get; set; }
public Arguments Arguments { get; set; }
public Boolean IsStatic { get; set; }
public string PhpHeader
{
get
{
return String.Format("public {0}function {1}()", IsStatic ? "static " : "", Name);
}
}
public override string AsPhp()
{
return PhpHeader;
}
}
public class Keyword : Generic
{
public Keyword(Boolean isStatic = false)
{
this.Arguments = new Arguments();
this.IsStatic = isStatic;
}
public string Name { get { return Arguments.MakeFunctionName(); } }
public Arguments Arguments { get; set; }
public Boolean IsStatic { get; set; }
public string PhpHeader
{
get
{
return String.Format("public {0}function {1}({2})", IsStatic ? "static " : "", Name, Arguments.AsPhp());
}
}
public override string AsPhp()
{
return PhpHeader;
}
}
}
}
}
Писал конвертер Smalltalk -> PHP
Где-то еще валяется Smalltalk -> Erlang
−2
var indexes = T.Select((item, index) => new { Item = item, Index = index })
.Where(nitem => n.Item == 0).Select(nindex => n.Index).ToArray();
Console.WriteLine("Первый: {0}, последний: {1}", indexes.First(), indexes.Last());
Не слишком много item index? index item?
+2
/***
*assert.h - define the assert macro
*
* Copyright (c) Microsoft Corporation. All rights reserved.
*
*Purpose:
* Defines the assert(exp) macro.
* [ANSI/System V]
*
* [Public]
*
****/
/*
#include <crtdefs.h>
#undef assert
#ifdef NDEBUG
#define assert(_Expression) ((void)0)
#else
#ifdef __cplusplus
extern "C" {
#endif
_CRTIMP void __cdecl _wassert(_In_z_ const wchar_t * _Message, _In_z_ const wchar_t *_File, _In_ unsigned _Line);
#ifdef __cplusplus
}
#endif
#define assert(_Expression) (void)( (!!(_Expression)) || (_wassert(_CRT_WIDE(#_Expression), _CRT_WIDE(__FILE__), __LINE__), 0) )
#endif */
#pragma once
#ifdef NDEBUG
#define assert(expr)
#else
inline void CheckExpression_(bool expr)
{
if (!expr)
{
expr=true; // put breakpoint here, happy user;
CheckExpression_(expr);
}
}
inline void CheckExpression_(void* expr)
{
if (!expr)
{
expr=(void*)(1); // put breakpoint here, happy user;
CheckExpression_(expr);
}
}
#define assert(expr) CheckExpression_(expr);
#endif
Сука я не знаю, почему в студии-2008 родной ассерт показывает не ту строку, на которой он произошёл и в стеке вызовов хуйня какая-то, и как подключить DebugBreak я тоже не знаю, потому что в windef.h куча хуеты, выдающей 100500 ошибок компиляции. Чтобы хоть как-то можно было жить, пришлось сделать так.
+5
$temp = $this->user->get($value['user_id']);
foreach ($temp as $var) {
$temp = $var;
break;
}
Просматривал код курсвых по web-программированию, нашел новейший метод извлечения первого элемента массива
0
$l_data["comm_text"] = $mail_body;
$l_var = implode(",", $l_var);
$l_path = "root->mail->".$l_group_id."->".$l_uuid."->[".$l_var.",group_name,comm_text]";
$this->engine->smartquery->create( $l_path );
$this->engine->smartquery->setdata( $l_path, $l_data );
if ($this->engine->var->get("comm_subscribe") == 1 && defvar($this->engine->var->get("comm_email"),"") != "")
{
$l_result = $this->engine->smartquery->getdata( "root->clients->(list)->[*]"," and `comm_email`='".$this->engine->var->get("comm_email")."' ");
$l_result = $l_result->getall();
if (count($l_result) == 0)
{
//Создать группу если отсутствует
$l_data = array();
$l_data["comm_fio"] = $this->engine->var->get("comm_fio");
$l_data["comm_email"] = defvar($this->engine->var->get("comm_email"),"");
$l_data["comm_phone"] = defvar($this->engine->var->get("comm_phone"),"");
$l_data["comm_formid"] = $l_group_id;
$l_data["comm_formname"] = defvar($config["mail.communication".$l_group_id.".subj"],"");
$l_var = implode(",", array_keys($l_data));
$l_uuid = mktime();
$l_path = "root->clients->".$l_uuid."->[".$l_var."]";
$this->engine->smartquery->create( $l_path );
$this->engine->smartquery->setdata( $l_path, $l_data );
}
}
Это код из одного "супер" движка мало того что тут используется дибильный шаблонизатор, тут используется просто еб*нутый класс для работы с базой данных....
Не знаю что автор хотел оптимизировать этим классом, но простая вставка данных в таблицу тут занимает целых два метода 1-ый($this->engine->smartquery->create) создает таблицу(если ее нет и пустую строку), второй только собственно осуществляет вставку в эту строку данных($this->engine->smartquery->setdata)
+2
# Проверка массива
if ($_POST) {
# Проверка Категории
if ($_POST['category'] > 0) {
# Отображение на главной
if ($_POST['main'] == "0" || $_POST['main'] == "1") {
# Имя товара
if ($_POST['item'] != "") {
# Описание товара
if ($_POST['body'] != "") {
# Картинка товара
if ($_POST['image'] != "") {
# Цены на товар
if ($_POST['price'] != "") {
...
}
}
}
}
}
}
}
Когда ну очень хочется комментировать и оператор AND бессилен.