π天之谜3/14


62

xkcdπ漫画

π日快乐。这个问题的目的是计算一个半径为3的圆的面积,其中A =πr²。

要注意的是,您必须使用用与编程语言不同的语言定义的常数π。例如,您可以编写使用Fortran的C程序MATH::PI或使用Java的Python程序java.lang.Math.PI

规则:

  • 您的代码必须使用其他语言存储的π值进行计算。(即,它必须存储在常量库或数学库中。)
  • 程序的所有代码都必须放在一个文件中。例如,您不能用C编写一个程序来打印π,而不能用Java编写另一个程序来运行C程序。(但是,您可以编写一个Java程序,该程序可以自己编写和编译C程序。)
  • 您不能从网页上下载π并声称您的常量来自PHP / ASP / HTML。

这是一个在Bash中运行并使用Python的存储math.pi值的示例:

#!/bin/bash
PI=`python -c 'import math; print math.pi'`
bc -l <<< "3 * 3 * $PI"

输出:

28.27433388231

这是一场大众竞赛,因此一周后获得最多票数的作品将获胜。

编辑:一周后,该奖项以93分获得了DigitalTrauma。感谢出色的汇编技巧-我不知道FPU将常数存储在硬件中。我希望本次比赛旨在找到一些有趣的方法来节省时钟周期,但实际上可以节省一些时间。

*图片提供:http : //xkcd.com/10/


38
这是第14个月的第3天?我的日历必须坏了。
Gareth 2014年

30
明年:15
TheDoctor

5
啊。头好。和这个。
bjb568 2014年

3
@bjb我同意,Tau更有意义,但这并不意味着我们不能在三月中旬玩得开心。:)
Undergroundmonorail

9
多么有趣。在π一天,我的名声是314
tbodt

Answers:


128

C + x86汇编

对您的语言软件中定义的常量不满意?为什么不使用可以直接从FPU硬件访问PI恒定值的语言:

#include <stdio.h>

int main (int argc, char **argv) {
    double pi;
    __asm__("fldpi" : "=t" (pi));
    printf("%g\n", 3 * 3 * pi);
    return (0);
}

67
天哪,有一条指令只是加载pi的值。
user2357112

21
x86包含一切指示。
蓬松的


7
7个常数的好选择!我一直在使用log_e(2),但不是说,2
蒂姆·S.

3
@fluffy我的x86核心坏了:我尝试了MOV AX,c0ffe; 添加牛奶 加糖; 加糖; MOV ecx,c0ffe; MOV ebx,1; MOV eax,4和我的BIOS演讲者嘲笑我.....
GMasucci 2014年

77

Python,bash,C,J,PHP和Python3

import subprocess

p = subprocess.Popen("""
echo '
#define _USE_MATH_DEFINES
#include <stdio.h>
#include <math.h>

int main(int pi) {
    if (pi == 1) printf("%.5f", M_PI);
    if (pi == 2) printf("o. 1");
    if (pi == 3) printf("<?php printf(\\"%%.5f\\", pi()); ?>");
    if (pi == 4) printf("import math; print(\\" %%.5f\\" %% math.pi)");
    return 0;
}
' > gcc -o pi
./pi
./pi J | jc
./pi and PHP | php
./pi and Python 3 | python3
""", shell=True, stdout=subprocess.PIPE)

values_of_pi = map(float, map(str.strip, p.stdout.read().split()))
pi = max(values_of_pi, key=values_of_pi.count)

print pi * 3 * 3

为了安全起见,该程序从几种不同的语言中检索pi,并采用了大多数公认的价值。可以轻松添加更多语言以提高可靠性。


27
我只是吐了一点口。
Dan Esparza 2014年

什么是J,为什么用它运行C程序?
NoBugs 2014年

@NoBugs J是另一种语言,我正在jc用我的C程序(o. 1)的输出运行它(是计算机上的J控制台)以获取pi的另一个值。论据并不重要。
grc 2014年

1
echo $long_string > gcc -o pi?我不敢相信没有人抓住这一点。另外,您听说过here-docs | here-strings吗?
Blacklight Shining

这是我见过的最酷的代码之一。我要把它框起来并放在墙上。可能带有警告。
凯文(Kevin)

41

PHP / MYSQL

$link = mysqli_connect("localhost", "user", "password", "dbname");
$query = mysqli_query($link, 'SELECT PI() AS pi');
$row = mysqli_fetch_assoc($query);
echo 3*3*$row['pi'];

4
非常聪明。使用非常标准的方式连接不同的运行时。=)+1
jpmc26 2014年

34

具有C,Pascal,Java,JavaScript,LaTeX3,Prolog,Perl,Scheme,Lua,Python,TeX / PGF的Perl / Tk

以下Perl脚本显示一个窗口,其中列出了π值和计算出的面积。π的值取自不同的语言,如下所示。

结果

一文件脚本:

#!/usr/bin/env perl
use strict;
$^W=1;

use Tk;
use Tk::Font;
use Tk::HList;
use Tk::ItemStyle;
use Tk::PNG;

# Function to calculate the area of the circle with radius 3
sub A ($) {
    use bignum;
    return 9*$_[0];
}

my $title = 'Pi Day';

# Configuration of external program names
my %prg = qw[
    Pascal fpc
    Perl perl
    Prolog swipl
    Scheme guile1
    TeX  tex
    LaTeX latex
];
sub prg ($) {
    my $prg = shift;
    return $prg{$prg} // $prg;
}

# Column headers
my @header = (
    '',
    'Language',
    "\N{U+03C0}",
    "A(3) = A(r) = \N{U+03C0}\N{U+2009}r\N{U+00B2}",
);

my $mw = MainWindow->new(
    -title => $title,
);

# Font setup (larger font)
my $font_size = '22';
my $font = $mw->Font();
$font->configure(-size => $font_size);

# ---------
# Utilities
# ---------

# Run program in backticks, quote arguments if needed and some error checking
sub backticks_pi (@) {
    my @cmd = map{/[ ()$;<>|\x22]/ && length > 1 ? "'$_'" : $_} @_;
    print "[@cmd]\n";
    my $catch = `@cmd`;
    if ($? == -1) {
        warn "Failed to execute: $!\n";
    }
    elsif ($? & 127) {
        warn sprintf "Child died with signal %d!\n", $? & 127;
    }
    elsif ($?) {
        warn sprintf "Child exited with value %d!\n", $? >> 8;
    }
    else {
        return $1 if $catch =~ /^\s*(\d+\.\d+)\s*$/
                  or $catch =~ /\bpi\s*=\s*(\d+\.\d+)/;
    }
    warn "Could not find pi in the output of \"@cmd\"!\n";
    return 0;
}

# Run a program with error checking
sub run_cmd (@) {
    print "[@_]\n";
    system @_;
    if ($? == -1) {
        warn "Failed to execute: $!\n";
    }
    elsif ($? & 127) {
        warn sprintf "Child died with signal %d!\n", $? & 127;
    }
    elsif ($?) {
        warn sprintf "Child exited with value %d!\n", $? >> 8;
    }
    else {
        return $1;
    }
    return undef;
}

# Create a bitmap logo
sub make_logo ($$$@) {
    my $name = shift;
    my $logo = shift;
    my $contents = shift;
    my $file = "piday-logo-$name.tmp";
    if ($contents) {
        open(OUT, '>', $file) or die "!!! Error: Cannot write `$file': $!";
        print OUT $contents;
        close(OUT);
    }
    foreach (@_) {
        run_cmd @$_;
    }
    return $mw->Photo(
        -file => $logo,
    ) if -f $logo;
    return undef;
}

# Call foreign language to calculate pi
sub make_pi ($$@) {
    my $file = shift;
    my $source = shift;
    if ($source) {
        open(OUT, '>', $file) or die "!!! Error: Cannot write `$file': $!";
        print OUT $source;
        close(OUT);
    }
    my $cmd_last = pop;
    foreach (@_) {
        run_cmd @$_;
    }
    return backticks_pi @$cmd_last;
}

# Add result list table
my $h = $mw->HList(
    -header  => 1,
    -columns => scalar @header,
    -width   => 100,
    -height  => 20,
    -font    => $font,
)->pack(
  -expand => 1,
  -fill => 'both',
);

# Add header for the result list table
for (0 .. @header-1) {
    $h->header('create', $_,
        -text => $header[$_],
    );
}

# Exit button
my $quit = $mw->Button(
    -text => 'Quit',
    -command => sub {exit},
    -font => $font,
)->pack;


my @list;
my @cmd;
my $pi;
my $source;
my $img;

# GNU C
# -----

$img = make_logo(
    'C',
    'piday-logo-c.png',
    '',
    [
        prg('wget'),
        '-O', 'piday-logo-c-gccegg.png',
        'http://gcc.gnu.org/img/gccegg-65.png',
    ],
    [
        prg('convert'),
        '-scale', '54x64',
        'piday-logo-c-gccegg.png',
        'piday-logo-c.png',
    ],
);

$source = <<'END_SOURCE';
#define _GNU_SOURCE
#include <math.h>
#include <stdio.h>

#define xstr(s) str(s)
#define str(s) #s

int main() {
  long double pi = M_PI;
  printf("pi=%s", xstr(M_PIl));
  return 0;
}
END_SOURCE

$pi = make_pi(
    'piday-c.c',
    $source,
    [
        prg('gcc'),
        '-o', 'piday-c',
        'piday-c.c',
    ],
    [
        prg('./piday-c')
    ],
);

push @list, {
    language => 'GNU C',
    pi       => $pi,
    image    => $img,
};

# Java
# ----

$img = make_logo(
    'Java',
    'piday-java.png',
    '',
    [
        prg('wget'),
        '-O', 'piday-java.svg',
        'https://upload.wikimedia.org/wikipedia/commons/a/a4/Java_logo_and_wordmark.svg',
    ],
    [
        prg('convert'),
        '-scale', '35x64',
        'piday-java.svg',
        'piday-java.png',
    ],
);

$source = <<'END_SOURCE';
public class PiDayJava {
    public static void main(String args[]) {
        System.out.println(Math.PI);
    }
}
END_SOURCE

$pi = make_pi(
    'PiDayJava.java',
    $source,
    [
        prg('javac'),
        'PiDayJava.java',
    ],
    [
        prg('java'),
        'PiDayJava',
    ],
);
push @list, {
    language => 'Java',
    pi       => $pi,
    image    => $img,
};

# Perl
# ----

# Math/Complex.pm: sub pi () { 4 * CORE::atan2(1, 1) }
@cmd = (prg('Perl'), '-e', 'use Math::Complex; print pi');
$pi = backticks_pi @cmd;

my $img = Tk->findINC('Camel.xpm');
$img = $mw->Photo(
    -file => $img,
);

push @list, {
    language => 'Perl',
    pi => $pi,
    image => $img,
};

# Python
# ------

@cmd = (
    prg('echo'),
    'import math;print math.pi',
    '|',
    prg('python'),
);
$pi = backticks_pi @cmd;

$img = make_logo(
    'python',
    'piday-logo-python.png',
    '',
    [
        prg('wget'),
        '-O',
        'piday-logo-python-master.png',
        'http://www.python.org/static/community_logos/python-logo-master-v3-TM.png',
    ],
    [
        prg('convert'),
        '-crop', '111x111+79+33',
        'piday-logo-python-master.png',
        'piday-logo-python-crop.png'
    ],
    [
        prg('convert'),
        '-scale', '64x64',
        'piday-logo-python-crop.png',
        'piday-logo-python.png',
    ],
);

push @list, {
    language => 'Python',
    pi => $pi,
    image => $img,
};

# TeX
# ---

@cmd = (
    prg('TeX'),
    '\input pgf \pgfmathparse{pi}\message{pi=\pgfmathresult}\end',
);
$pi = backticks_pi @cmd;
my $img = make_logo(
    'tex',
    'piday-logo-tex.png',
    '',
    [
        prg('pdftex'),
        '\mag=4000 \nopagenumbers\font\sc=cmcsc10 \sc pgf\bye'
    ],
    [
        prg('pdfcrop'),
        'texput.pdf',
        'piday-logo-tex.pdf',
    ],
    [
        prg('convert'),
        'piday-logo-tex.pdf',
        'piday-logo-tex.png',
    ]
);
push @list, {
    language => 'TeX/PGF',
    pi => $pi,
    image => $img,
};

# LaTeX3
# ------

my $logo_source = <<'END_LOGO';
\mag=4000
\documentclass{article}
\usepackage{hologo}
\pagestyle{empty}
\begin{document}
\hologo{LaTeX3}
\end{document}
END_LOGO

$img = make_logo(
    'latex3',
    'piday-logo-latex3.png',
    $logo_source,
    [
        prg('pdflatex'),
        'piday-logo-latex3.tmp'
    ],
    [
        prg('pdfcrop'),
        'piday-logo-latex3.pdf',
        'piday-logo-latex3-crop.pdf',
    ],
    [
        prg('convert'),
        'piday-logo-latex3-crop.pdf',
        'piday-logo-latex3.png',
    ]
);
$source = <<'END_LATEX3';
\documentclass{article}
\usepackage{expl3}
\ExplSyntaxOn
\msg_term:n { pi=\fp_eval:n { pi } }
\ExplSyntaxOff
\stop
END_LATEX3
$pi = make_pi(
    'piday-latex3.tex',
    $source,
    [
        prg('LaTeX'),
        'piday-latex3.tex',
    ],
);
push @list, {
    language => 'LaTeX3',
    pi => $pi,
    image => $img,
};

print "****************\n";

# Lua
# ---

$img = make_logo(
    'Lua',
    'piday-logo-lua.png',
    '',
    [
        prg('wget'),
        '-O', 'piday-logo-lua.gif',
        'http://www.lua.org/images/lua-logo.gif',
    ],
    [
        prg('convert'),
        '-scale', '64x64', # '50x50',
        'piday-logo-lua.gif',
        'piday-logo-lua.png',
    ],
);

$source = 'print(math.pi)';
$pi = make_pi(
    'piday-lua.lua',
    $source,
    [
        prg('texlua'),
        'piday-lua.lua',
    ]
);
push @list, {
    language => 'Lua',
    pi => $pi,
    image => $img,
};

# JavaScript
# ----------

$img = make_logo(
    'JavaScript',
    'piday-logo-javascript.png',
    '',
    [
        prg('wget'),
        '-O', 'piday-logo-rhino.jpg',
        'https://developer.mozilla.org/@api/deki/files/832/=Rhino.jpg',
    ],
    [
        prg('convert'),
        '-scale', '127x64',
        'piday-logo-rhino.jpg',
        'piday-logo-javascript.png',
    ],
);

$source = 'print(Math.PI)';
$pi = backticks_pi(
    prg('java'),
    '-cp', prg('js.jar'),
    'org.mozilla.javascript.tools.shell.Main',
    '-e', $source,
);
push @list, {
    language => 'JavaScript',
    pi => $pi,
    image => $img,
};

# Scheme
# ------

$img = make_logo(
    'Scheme',
    'piday-logo-scheme.png',
    '',
    [
        prg('wget'),
        '-O', 'piday-logo-lambda.svg',
        'https://upload.wikimedia.org/wikipedia/commons/3/39/Lambda_lc.svg',
    ],
    [
        prg('convert'),
        '-scale', '64x64',
        'piday-logo-lambda.svg',
        'piday-logo-scheme.png',
    ],
);
$source = '(display (* 2 (acos 0)))';
$pi = backticks_pi(
    prg('Scheme'),
    '-c', $source,
);
push @list, {
    language => 'Scheme',
    pi => $pi,
    image => $img,
};

# Prolog
# ------

$img = make_logo(
    'Prolog',
    'piday-logo-prolog.png',
    '',
    [
        prg('wget'),
        '-O', 'piday-logo-swipl.png',
        'http://www.swi-prolog.org/icons/swipl.png',
    ],
    [
        prg('convert'),
        '-scale', '78x64',
        'piday-logo-swipl.png',
        'piday-logo-prolog.png',
    ],
);
$source = ":- format('~15f~n', [pi]).\n";
$pi = make_pi(
    'piday-prolog.pro',
    $source,
    [
        prg('Prolog'),
        '-c', 'piday-prolog.pro',
    ]
);
push @list, {
    language => 'Prolog',
    pi => $pi,
    image => $img,
};

# Pascal
# ------

$img = make_logo(
    'Pascal',
    'piday-logo-pascal.gif',
    '',
    [
        prg('wget'),
        '-O', 'piday-logo-pascal.gif',
        'http://www.freepascal.org/pic/logo.gif',
    ]
);
$source = <<'END_PASCAL';
program piday_pascal;

uses sysutils, math;

begin
  writeln(format('%.16f', [pi]));
end.
END_PASCAL
$pi = make_pi(
    'piday-pascal.pas',
    $source,
    [
        prg('Pascal'),
        'piday-pascal.pas',
    ],
    [
        prg('./piday-pascal'),
    ]
);
push @list, {
    language => 'Pascal',
    pi => $pi,
    image => $img,
};

# Sort and fill the table rows
@list = sort {
    my $diff = (length $b->{'pi'} <=> length $a->{'pi'});
    return $diff if $diff;
    return "\L$a->{'language'}\E" cmp "\L$b->{'language'}\E";
} @list;

foreach my $x (@list) {
    my $e = $h->addchild("");
    my $col = 0;
    if ($x->{'image'}) {
        $h->itemCreate($e, $col++,
            -itemtype => 'image',
            -image => $x->{'image'},
        );
    }
    else {
        $col++;
    }
    $h->itemCreate($e, $col++,
        -itemtype => 'text',
        -text => $x->{'language'},
    );
    $h->itemCreate($e, $col++,
        -itemtype => 'text',
        -text => $x->{'pi'},
    );
    $h->itemCreate($e, $col++,
        -itemtype => 'text',
        -text => A $x->{'pi'},
    );
}

MainLoop;

__END__

语言能力

以下列表显示了用于获取π的语言和代码。

  • GNU C: GNU扩展用于获得更高的π精度。

    #define _GNU_SOURCE
    #include <math.h>
    #include <stdio.h>
    
    #define xstr(s) str(s)
    #define str(s) #s
    
    int main() {
        long double pi = M_PI;
        printf("pi=%s", xstr(M_PIl));
        return 0;
    }
  • Pascal:Free Pascal一起编译。

    program piday_pascal;
    
    uses sysutils, math;
    
    begin
      writeln(format('%.16f', [pi]));
    end.
  • Java:

    public class PiDayJava {
        public static void main(String args[]) {
            System.out.println(Math.PI);
        }
    }
    
  • JavaScript: Rhino用于执行JavaScript。

    print(Math.PI)
  • LaTeX3:

    \documentclass{article}
    \usepackage{expl3}
    \ExplSyntaxOn
    \msg_term:n { pi=\fp_eval:n { pi } }
    \ExplSyntaxOff
    \stop
  • Prolog: SWI Prolog用作Prolog编译器。

    :- format('~15f~n', [pi]).
  • Perl:为了乐趣和完整性。

    use Math::Complex;
    print pi;
  • Scheme:使用Scheme实现是GNU Guile

    (display (* 2 (acos 0)))
  • Lua: texlua用作Lua解释器。

    print(math.pi)
  • 蟒蛇:

    import math
    print math.pi
  • TeX / PGF: π来自其对pgf包的定义,纯TeX用作TeX格式:

    \input pgf
    \pgfmathparse{pi}
    \message{pi=\pgfmathresult}
    \end

16

dg

print ((import '/math/pi')*3**2)

这个怎么运作:

dg是一种可编译为CPython字节码的语言。方便地,它与python库兼容。importdg中的语句返回它们要导入的对象,因此该程序基本上是这样做的:

print (<PYTHON'S MATH.PI>*3**2)

 

 

不,我不希望有任何投票。:)


4
糟糕的雏菊,我想我赞成;)
匿名Pi

1
顺便说一句,这是我在dg中做的第一件事。有人将其用于高尔夫球问题,并链接到我在此答案中链接到的相同位置。我读了一下,并认为该语言看起来很整洁(尽管我鄙视过总督米姆),但是直到了解该问题大约一个小时之后,我才打算使用它,当时我阅读了这个问题并意识到自己可以滥用它。
地下

5小时前,当我发表我的第一条评论时,只有1票赞成。我认为人们确实认真对待了我的评论;)或者他们只是使用了您的评论。
2014年

“所有代码都必须放在一行中”。至少有些人可以阅读!
弗洛里斯2014年

<PYTHON'S MATH.PI>那些repr()你得到的功能不字符串和其他物体|无法定义自己的__repr__()s到是自己的有效的重建实际上不是......好有效。尝试__import__('math').pi
Blacklight Shining

15

C ++和Lua 5.2

没有什么比说嵌入整个语言解释器来访问pi常量要说的矫kill过正了。

#include <lua.hpp>
#include <cmath>
#include <iostream>

#define R 3

int main( void )
{
    lua_State* vm = luaL_newstate();

    luaL_openlibs( vm );
    luaL_dostring( vm, "function get_pi() return math.pi end" );
    lua_getglobal( vm, "get_pi" );
    lua_call( vm, 0, 1 );

    lua_Number PI_ = lua_tonumber( vm, -1 );

    std::cout << PI_ * pow( R, 2 ) << std::endl;

    lua_close( vm );
    return 0;
}

可以...lua_getglobal("math");lua_getfield(-1,"pi");
mniip

@mniip我在发布后意识到了这一点。现在是清晨,我的大脑还没有完全运转,但是这种方式效果很好,所以我独自一人。
Tony Ellis

13

bash + PHP +公元前

一个非常简单的单行代码:

echo "scale=14;3*3*`php -r 'echo pi();'`"|bc

输出:

28.274333882308

“所有代码都必须放在一行中”。至少有些人可以阅读!
弗洛里斯2014年

4
@Floris:讨厌把它破坏给你,但是问题是file而不是line
丹尼斯2014年

26
@dennis-显然我不是“某些人” ...:-/
Floris

10

MATLAB + Java(21字节)

不确定MATLAB是否在作弊,但是我们开始

java.lang.Math.PI*3^2

输出: Format Short

28.2743

输出: Format Long

28.2743338823081

格式化类型不影响存储的值,仅影响将其打印到控制台中的方式


1
MATLAB .. - 不寒而栗 -
theGreenCabbage

@theGreenCabbage哈哈,不确定这是好抖还是坏抖:)以我的经验,它使编写简单的东西变得非常容易。当然,还有更好的选择,但是如果没有很多时间,MATLAB可以解决问题。
MZimmerman6 2014年

10

Bash,Node,Ruby,Python

#!/bin/bash

node -pe 'Math.PI' \
| ruby -e 'puts ARGF.read.to_f * 3' \
| python -c 'import sys; print(float(sys.stdin.read()) * 3)'

7

佩尔

perl -ne '/M_PI\s*([\d.]*)/&&print $1*3*3' < /usr/include/math.h

+1,即使它实际上在OS X中不起作用(math.h包括其他文件,architecture/*/math.h具体取决于目标平台)
挤压ossifrage 2014年

1
好吧,它在Windows上也不起作用,但是我不打算在这里进行便携性:)
Orion

7

Powershell + MS SQL服务器

这是用于Powershell和SQL Server的版本(从2005年开始)

add-pssnapin sqlserverprovidersnapin100
add-pssnapin sqlservercmdletsnapin100
$pi=Invoke-Sqlcmd -query "select PI() as sql"
$pi.sql *3*3

这里是一个单一的班轮:

add-pssnapin sqlserverprovidersnapin100;add-pssnapin sqlservercmdletsnapin100;(Invoke-Sqlcmd -query "select PI() as sql").sql*3*3

稍后将发布更多内容:)


7

JavaScript / PHP

必须保存为* .php文件,并在解释PHP的某些服务器上的浏览器中调用。

<script type="text/javascript">
    alert(3*3*<?php echo M_PI;?>);
</script>

可以通过使用短标签将3 * 3替换为9来打高尔夫球(允许吗?):

<script type="text/javascript">
    alert(9*<?=M_PI?>);
</script>

pi()与M_PI具有相同的长度,因此没有赢家。


2
“这是允许的吗”-当然,这不是代码高尔夫球,而是人气竞赛。
CompuChip 2014年

1
但是,这既不会在php中也不会在javascript中运行。
克苏鲁2014年

是的,它需要一些<script>标签和.php扩展名。
CompuChip 2014年

3
我编辑了它,尽管我认为它是可以理解的...
Reeno 2014年

@Cthulhu“必须另存为* .php文件,并在浏览器中从解释PHP的服务器中调用。” 使用纯.html或.php或.whatever文件不管用,您都需要apache或类似的东西。
2014年

6

Emacs Lisp:编写,编译和运行C

(with-temp-buffer
  (with-temp-file"/#rad.c"(insert"#include<math.h>\n#include<stdio.h>\nint main(void){printf(\"%f\",M_PI*3*3);}"))
  (shell-command"gcc /#rad.c -o /#rad && /#rad"(current-buffer))(string-to-number(buffer-string)))

不打高尔夫球

(with-temp-buffer
  (with-temp-file "/#rad.c"
    (insert"
#include<math.h>
#include<stdio.h>
int main(void){
  printf(\"%f\",M_PI*3*3);
}"))
  (shell-command "gcc /#rad.c -o /#rad && /#rad"
         (current-buffer))
  (string-to-number(buffer-string)))

奖金:

您可以使用-eval批量运行emacs并将表达式括在中,从而使该语言的语言三倍(print)。这将导致Bash运行lisp,该lisp会进行编译,然后运行C会读取输出并将其输出到bash中的shell中。


5

对于这个问题,我创建了自己的语言,称为数字。语法由p,代表pi的常量和数字组成。运行时,它将返回所有相乘的数字(和p)。这是我用Python编写的解释器和代码:

def interpret(kode):
    out=1.0
    for i in kode:
        if(i=='p'):
            out*=3.14159265
        else:
            out*=int(i)
    return out
print(interpret("p33"))

3
在我看来,它更像是Python中的函数,而不是语言,但是它可以工作。
Hosch250

2
@ hosch250 python解释器本身是用C语言编写的(一组)函数(对于CPython),因此此答案非常有效。我会说很聪明。
Juan Campa 2014年

4

bc + dc + bash(高尔夫球手30个字符)

这是一个高尔夫球般的小家伙:

$ dc<<<"3d*`bc -l<<<'a(1)*4'`*p"
28.27433388230813914596
$ 
  • bc -l<<<'a(1)*4' 产生pi(它被存储为a()(arctan)函数的bc数学库中的常数。
  • dc<<<"3d*pi *p"将3压入堆栈,将值复制到堆栈顶部(3)并乘以倍数,然后将pi压入堆栈并乘以倍数,然后打印堆栈的顶部。

4

OCaml + AWK

没有人喜欢OCaml吗?

  • 使用OCaml 计算 Pi
  • awk计算Pi * r 2

这里是:

ocaml <<< "4.0 *. atan 1.0;;" | awk '/float/{printf("%.12f", 3*3*$NF)}'

答案是:

28.274333882308

4

C ++ / C语言

#include <math.h>
#include <iostream>

int main(int argc, char** argv) {
    std::cout << 3*3*M_PI << std::endl;
    return 0;
}

欢迎光临本站!但是我认为问题在于寻找一种程序,该程序实际上会调用另一种语言的功能或用另一种语言编译该程序,而不是仅会使用多种语言进行编译的程序。
Jonathan Van Matre 2014年

4
@JonathanVanMatre:我认为在这种情况下,他的意思是他使用C ++中C头中的常量。std::cout从来都不是有效的C语法。
Konrad Borowski

啊,打个好电话。
Jonathan Van Matre 2014年

4

非常简单,使用bash访问C数学库:

bc -l <<< "3 * 3 * `grep -w M_PI /usr/include/math.h | awk '{ print $4 }'`"

4

VimScript + Python

:py import math
:ec pyeval("math.py")*3*3

结果:

28.274334

4

由于Fortran实际上没有pi的内在值(OP似乎用语句“ Fortran的MATH::PI”表示),所以我不得不为C写一个内在值。我选择(而不是实际定义)我只是确定它使用一些快速算法

#include <math.h>
double pi_eval(){
    double a = 1.0;
    double b = 1.0/sqrt(2.0);
    double t = 0.25;
    double x = 1.0;
    double y;
    int i;

    for(i=0; i<4; i++){
        y = a;
        a = 0.5*(a+b);
        b = sqrt(b*y);
        t -= x*(y-a)*(y-a);
        x *= 2.0;
    }
    return (a+b)*(a+b)/(4.0*t);
}

(保存为pi_calc.c),然后用于area_calc.f90

program area_calc
   use, intrinsic :: iso_c_binding
   implicit none

   interface
     function pi_eval() bind(c)
       use, intrinsic :: iso_c_binding
       real(c_double) :: pi_eval
     end function pi_eval
   end interface
   real(c_double) :: pi, area

   pi = pi_eval()
   print *,"area=",3.0*3.0*pi

end program area_calc

这将输出所需

 area=   28.2743338823081

一个使用编译

gcc -c pi_calc.c
gfortran -o area pi_calc.o area_calc.f90

3

R&C ++

在R中需要inlineRcpp软件包。

get.pi <- inline::cxxfunction(plugin="Rcpp", includes="#include <cmath>", body="return wrap(M_PI);")

get.pi() * 3 ^ 2

cxxfunction在后台创建,编译和链接C ++函数。是的,正在发生大量的代码生成,并且return wrap(M_PI);是C ++代码(及其#include部分)。


3

Java + JavaScript

class Pi {
    public static void main(String... args) throws Throwable {
        System.out.println((double) new javax.script.ScriptEngineManager()
                .getEngineByName("JavaScript").eval("Math.PI")
                * Math.pow(3, 2));
    }
}
28.274333882308138

你击败了我。:(
SuperJedi224

3

朱莉娅使用Python

julia> using PyCall
julia> @pyimport math
julia> math.pi*3^2
28.274333882308138

那很有趣,我以前从未使用过PyCall。该界面超级易于使用。


3

R + grep + awk + ​​dc

echo pi | R --no-save --quiet | grep -v '^>' | awk '{print $2}' | dc -e '?3 3 **p'

输出:

28.274337

3

在Java中使用Lua的π

该程序使用LuaJ库在Java中评估Lua并获得π。它还使该区域与Lua平方。请享用!

    ScriptEngineManager sem = new ScriptEngineManager();
    ScriptEngine se = sem.getEngineByName("luaj");
    se.eval("pi = math.pi");
    double pi = (double) se.get("pi");

    int r = 3;

    se.eval("radius = "+r);
    se.eval("rsquared = math.pow(radius, 2)");
    int rsquared = (int) se.get("rsquared");

    double area = pi * rsquared;
    System.out.println("For a circle with a diameter of "+r+", the area is "+area+".");

输出:

For a circle with a diameter of 3, the area is 28.274333882308138.


2

Jython + Java

这应该在Jython中起作用。我不确定,因为我无法测试ATM。

from java.lang import Math
print Math.PI * 3 ** 2

Jython可以访问Java库,因此我可以从java.lang导入Math类,并使用其PI常数来计算圆的面积。

打高尔夫球:

import java.lang.Math.PI;print PI*3*3

或者,如果允许我使用3 ^ 2进行编码:

import java.lang.Math.PI;print PI*9

2

bash(来自perl,python,c的PI)

也许如果我们将所有东西结合起来,我们会得到更准确的结果吗?:)

#!/bin/bash
exec >&>(bc -l|tail -n1)
perl <<EOF
use Math::Trig;
print pi
EOF
echo -n +
python <<EOF
import sys
from math import pi
sys.stdout.write(str(pi))
EOF
echo -n +
cat > pi.c <<EOF
#include <math.h>
main(){printf("%.16f",M_PI);}
EOF
gcc pi.c -o pi &>/dev/null
./pi
rm -f pi pi.c
echo ";"
echo "(last/3)*3.^2"

2

Ruby + Python

puts `python -c "from math import pi; print pi"`.to_f * 3**2

2

HTML + PHP

<html><body>
value of area of circle is <br>
<?php echo 3*3*M_PI; ?>
</body></html>

困惑是否满足第三条规则。但由于M_PI已被使用,因此它应该计数。


2

ACTIONSCRIPT3 + javascript(使用parse.com)

Parse.CFunction('getPi',{},function(returned){trace(3*3*returned.result)});

解析类链接https://github.com/camdagr8/AS3-Parse-Class/blob/master/com/illumifi/Parse.as

使用代码:

public static function CFunction(className:String, params:Object = null, success:Function = null, error:Function = null) {
            var url:String = Parse.api + "functions/" + className;
            Parse.Call(url, URLRequestMethod.POST, params, null, success, error);
        }

解析main.js:

Parse.Cloud.define("getPi", function(request, response) {
  response.success(Math.PI);
});

结果:

28.274333882308138
By using our site, you acknowledge that you have read and understand our Cookie Policy and Privacy Policy.
Licensed under cc by-sa 3.0 with attribution required.