-
+1
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
(*O/*_/
Cu #%* )pop mark/CuG 4 def/# 2 def%%%%@@P[TX---P\P_SXPY!Ex(mx2ex("SX!Ex4P)Ex=
CuG #%* *+Ex=
CuG #%*------------------------------------------------------------------*+Ex=
CuG #%* POLYGLOT - a program in eight languages 15 February 1991 *+Ex=
CuG #%* 10th Anniversary Edition 1 December 2001 *+Ex=
CuG #%* *+Ex=
CuG #%* Written by Kevin Bungard, Peter Lisle, and Chris Tham *+Ex=
CuG #%* *+Ex=
CuG #%* Polyglot suports the following languages: *+Ex=
CuG #%* 1. COBOL (ANSI) *+Ex=
CuG #%* 2. Pascal (ISO) *+Ex=
CuG #%* 3. Fortran (ANSI, f77) *+Ex=
CuG #%* 4. C (ANSI-ish) *+Ex=
CuG #%* 5. PostScript *+Ex=
CuG #%* 6. Linux/Unix shell script (bash, sh, csh) *+Ex=
CuG #%* 7. x86 machine language (MS-DOS, Win32, Linux) *+Ex=
CuG #%* 8. Perl (version 5) *+Ex=
CuG #%* *+Ex=
CuG #%* Usage: *+Ex=
CuG #%* 1. Rename this file to polyglot.[cob|pas|f77|c|ps|sh|com|pl] *+Ex=
CuG #%* *+Ex=
CuG #%* 2. Compile and run with your favorite compiler and operating *+Ex=
CuG #%* system. *+Ex=
CuG #%* *+Ex=
CuG #%* Notes: *+Ex=
CuG #%* 1. We have attempted to use only standard language features. *+Ex=
CuG #%* *+Ex=
CuG #%* 2. Without the -traditional flag gcc will issue a warning. *+Ex=
CuG #%* *+Ex=
CuG #%* 3. When transferring from Unix to DOS make sure that a LF *+Ex=
CuG #%* is correctly translated into a CR/LF. *+Ex=
CuG #%* *+Ex=
CuG #%* 4. Keep the black lines at the start of the program. They *+Ex=
CuG #%* are important. *+Ex=
CuG #%* *+Ex=
CuG #%* 5. This text is a comment block in all eight languages. *+Ex=
CuG #%* *+Ex=
CuG #%* Please mail any comments, corrections or additions to *+Ex=
CuG #%* [email protected] *+Ex=
CuG #%* *+Ex=
CuG #%*------------------------------------------------------------------*QuZ=
CuG #%* *+Ex=
CuG #%*!Mx)ExQX5ZZ5SSP5n*5X!)Ex+ExPQXH,B+ExP[-9A-9B(g?(gA'UTTER_XYZZXX!X *+
CuG #(* *(
C # */); /*(
C # *) program polyglot (output); (*+
C # identification division.
C # program-id. polyglot.
C #
C # data division.
C # procedure division.
C #
C # * ))cleartomark /Bookman-Demi findfont 36 scalefont setfont (
C # * (
C #
C # * hello polyglots$
C # main.
C # perform
C /# * ) 2>_$$; echo "hello polyglots"; rm _$$; exit;
C # * (
C #
C *0 ) unless print "hello polyglots\n"; __END__
print
C stop run.
-*, 'hello polyglots'
C
C print.
C display "hello polyglots". (
C */ int i; /*
C */ main () { /*
C */ i=printf ("hello polyglots\n"); O= &i; return *O; /*
C *) (*
C *) begin (*
C *) writeln ('hello polyglots'); (*
C *) (* )
C * ) pop 60 360 (
C * ) pop moveto (hello polyglots) show (
C * ) pop showpage ((
C *)
end .(* )
C)pop% program polyglot. *){*/}
C: https://ideone.com/LzLeJH
Pascal (gpc): https://ideone.com/J7VAQk
Perl: https://ideone.com/AmODLG
К сожалению, не все языки удалось проверить имеющимися интерпретаторами/компиляторами.
inkanus-gray,
12 Сентября 2017
-
+5
- 1
- 2
- 3
- 4
- 5
else {
!this.isRight ?
this.reachedPoints = 0 :
this.reachedPoints = this.points;
}
Витя, как же ты заебал уже со своими ебучими тернарками!
Bullsquid,
11 Сентября 2017
-
−17
- 1
Когда уже HACTEHbKA напишет программу, которая выводит "bormand one love", который можно скомпилировать компиляторами двух разных ЯП
d_fomenok,
11 Сентября 2017
-
+1
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
#ifdef _MSC_VER
# if ( _MSC_VER <= 1800) // MSVC 2012 / 2013
typedef std::vector<char>& vector_ref;
# else
typedef std::vector<char>&& vector_ref;
# endif
#else
typedef std::vector<char>&& vector_ref;
#endif
auto func = std::bind([this](vector_ref v) { /* ... */ }, std::placeholders::_1);
тут говна вагон и маленькая тележка
Во-первых, версии студии, компилятора студии и _MSC_VER всегда разные. Сложно даже представить человека который решил "а давайте распространять компилятор по версии SDK, а проверять по левому числу, не являющемуся ни тем ни другим?"
Во-вторых, поддержка c++11 в msvc 2012/2013 удручает. В 2012 нет даже type aliases, потому и typedef.
В-третьих, кривая реализация bind (rvalue-версия не соберется в студиях 12/13, lvalue - в более поздних).
Antervis,
11 Сентября 2017
-
0
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
if ($session_data['iam']) {
$newparam = $param = " AND member_gender = '" . $session_data['iam'] . "' ";
}
if ($session_data['add_title_new']) {
$newparam = $param = " AND member_name like '%" . $session_data['add_title_new'] . "%' ";
}
if ($session_data['i_am']) {
$param = " AND member_gender = '" . $session_data['i_am'] . "' ";
}
if ($session_data['looking']) {
$newparam .= $param .= " AND member_looking_for = '" . $session_data['looking'] . "' ";
}
if ($session_data['agefrom'] != '0' && $session_data['agefrom'] != '') {
$param .= " AND partner_age_range_from = '" . $session_data['agefrom'] . "' ";
}
Ладно, зачем-то присваивание сразу двух переменных, которые названы совершенно невнятно. Но что делает .= $param .= я вообще боюсь представить (и честно говоря лень проверять)
gorsash,
11 Сентября 2017
-
0
- 1
normalSport.Regions.First().Leagues.FirstOrDefault(x => x.LeagueId == rootCompanyOdds.leagues[i].id).Games.FirstOrDefault(x => x.GameId == rootCompanyOdds.leagues[i].events[j].id).Markets.AddRange(factory.CreateGameFromCompanyEvent(rootCompanyOdds.leagues[i].events[j]).Markets)
инлайн змiй
govnoBet,
11 Сентября 2017
-
−2
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
public static function GenerateMenu()
{
$item = [];
$section = self::find()->all();
$count_section = 0;
foreach ($section as $model_section) {
$item[] = ['label' => $model_section->name, 'url' => '#'];
$category = \common\models\Category::find()->where(['id_section' => $model_section->id])->all();
$count_category = 0;
foreach ($category as $model_category) {
$item[$count_section]['items'][$count_category] = ['label' => $model_category->name, 'url' => '#'];
$subcategory = \common\models\Subcategory::find()->where(['id_category' => $model_category->id])->all();
$count_subcategory = 0;
foreach ($subcategory as $model2) {
$item[$count_section]['items'][$count_category]['items'][$count_subcategory] = ['label' => $model2->name, 'url' => '#'];
$count_subcategory++;
}
$count_category++;
}
$count_section++;
}
return $item;
}
Феерическое решение для вывода tree из трех категорий.
qstd,
09 Сентября 2017
-
−19
- 1
- 2
- 3
- 4
- 5
- 6
let countries = ``
missingCountries.map((c, i) => {
countries += ` '${c.country}'`
if (i !== missingCountries.length - 1) countries += `,`
})
map? Ara.
sigod,
07 Сентября 2017
-
−9
- 1
console.log((typeof[])[!![]-!![]]+(![]+[])[!+[]+!+[]]+([![]]+[][[]])[!![]+!![]+!![]+!![]]+(typeof([]+[]))[!![]+!![]+!![]+!![]+!![]]+'+'+(typeof[])[!![]+!![]]+(typeof([]+[]))[!![]-!![]]+'='+(![]+[])[!+[]+!+[]]+(typeof[])[!![]-!![]]+'\\/'+([![]]+[][[]])[!![]+!![]+!![]+!![]])
прикол над коллегой, выведет oleg+js= ... запустите, если хотите знать :)
skyandrd,
07 Сентября 2017
-
−9
- 1
- 2
- 3
- 4
- 5
- 6
- 7
{получить I}
function getSafeItoDBID(TEmployer e):Integer;
begin
if (e<>nil) and (e.getIdentificator()<>nil) and (e.getIdentificator().getID()<>nil) and (e.getIdentificator().getID().getID()<>nil)
then result:= e.getIdentificator().getID().getID().getValue().i;
else result:= 0;
end;
Получить без ERROR ID для записи в MySQL
AlCodel,
07 Сентября 2017
Follow us!