Görev

Herhangi bir yerleşik faktörü işlevini kullanarak bir sayının faktörünü hesaplayan bir program oluşturun. Kolay? Program, tüm programınızı (test etme dahil) haiku formunda yazmanız gerektiğidir .

İhtiyacınız kadar haikus kullanabilirsiniz, ancak telaffuz edildiklerinde 5-7-5 heceli formatı izlemeleri gerekir.

puanlama

Bu bir popülerlik yarışması. Bu yüzden kazanmak için en fazla oyu kazanmanız gerekiyor. Programınız en az bir tam haikudan oluşmalı ve tüm haikuslar eksiksiz olmalıdır.

Kod okurken, her bir haikunun ilk satırı 5 heceli, ikincisi 7, üçüncüsü 5 olacaktır.

Smalltalk

(bir çalışma alanında değerlendirin; bir iletişim kutusu açar, bir sayı ister ve sonucu stdout'a yazdırır):

"in" "this" 'poem,' "you" "must"
"pronounce" "characters" "like" "these:"
"return(^)," "and" "times(*);" "please".

"but" 'never' "in" "here"
"tell" "anyone" "about" "those"
"few" "parentheses".

"otherwise" "these" "words" 
"are" "stupid" "and" "this" "coded" 
"rhyme" "is" "wasted" Time.

"let" "us" "now" "begin" 
"by" "defining," "in" Object
"and" compile: "the" "rhyme:"

'fac: "with" arg"ument"
"to" "compare" arg <"against" 2 ">"
"and" ifTrue: [ ^"return"

"["1] "or" ifFalse: "then"
["return"^ arg *"times" "the" "result"
"of" ("my"self ")getting"

"the" fac:"torial"
"of" "the" "number" arg "minus"-
1 "[(yes," "its" "easy")]'.

("Let" "me" "my"self "ask"
"for" "a" "number," "to" "compute"
"the" fac:"torial"

("by" "opening" "a" 
"nice" Dialog "which" "sends" "a"
request: "asking" "for"

'the Number to use' 
"(which" "is" "(" "treated" ) asNumber)
"then" print "the" "result".

Bir yansıma ("bu şiirde") ve kigo getirmeye çalıştım. Ayrıca, bazı batı tarzı kafiye unsurları dahil edilmiştir (lütfen-> bunlar, zaman-> kafiye); ancak, ne Japonca ne de İngilizce anadili olmak, herhangi bir üslupsal ayrıntıyı affetmez ;-)

Haskell

fact :: Int -> Int          -- fact is Int to Int
fact x = product (range x)  -- fact x is product range x
range x = [1..x]            -- range x is 1 [pause] x

Haskell eğitim süresi:

• range xFonksiyon kadar değeri 1 ila tamsayılar listesini oluşturur x.
• fact xFonksiyon listesindeki bütün değerlerini çarpar range xsonucu hesaplamak için bir araya.
• İlk satır, factfonksiyonun bir tamsayı aldığını ve bir tamsayı döndürdüğünü söylüyor .

Java - 2 haikus

protected static
        int factorial(int n) {
    if (n == 0) {
        return n + 1;
    } return factorial(n
            - 1) * n;}

Soru kod-golf olmasa da , çoğu zaman cevabı golf oynarken yakalarım. Bu durumda, haikus sayısını yazdım.

Ben öyle söylüyorum:

n sıfır ise korumalı statik
int faktoring int n

geri dönüş n artı bir
geri dönüş faktörü n
eksi bir kez n

Test programı:

class Factorial {                                    // class Factorial
    public static void main(String[]                 // public static void main string
            command_line_run_args) {                 // command line run args

        int i = 0;                                   // int i is zero
        while (7 != 0)                               // while seven is not zero
            System.out.                              // System dot out dot

                    println(i + "!"                  // print line i plus not
                            + " = " + factorial(     // plus is plus factorial
                            i += 1));}               // i plus equals 1

    protected static
            int factorial(int n) {
        if (n == 0) {
            return n + 1;
        } return factorial(n
                - 1) * n;}}

Bu programın 0hızlı bir şekilde çıkmaya başladığını unutmayın ; taşma sonucu budur. Her birini değiştirerek kolayca daha büyük doğru sayıları elde intedebilirsiniz long.

Standart telaffuzlar System.out.printlnve public static void main(String[] args)programa yansıtılır.

APL

factorial←{×/⍳⍵}

Faktoring -
omega'ya
kadar doğal ürünlerin ürünü

Shakespeare

The Products of Love:
A haiku tragedy with
mathy undertones.

Romeo, a man.
Juliet, a maiden fair.
Friar John, a monk.

Act I: A Cycle.
Scene I: Pertinent Values.
[Enter Romeo]

[Enter Friar John]
Romeo: Listen to thy
heart. Thou art thyself.

Friar John: Thou art
as forthright as a songbird.
[Exit Friar John]

[Enter Juliet]
Romeo: Thou art as fair
as a violet.

Scene II: Questioning
Themselves. [Exit Juliet]
[Enter Friar John]

Friar John: Art thou
as just as the sum of me
and a nobleman?

Romeo: If so,
let us proceed to scene III.
[Exit Friar John]

[Enter Juliet]
Romeo: Thou art as good
as the product of

thyself and myself.
Juliet: Thou art as fierce
as the sum of an

eagle and thyself.
We must return to scene II.
Scene III: A Lengthy

Title for a Brief
Dénouement; Or, The Last Word.
[Exit Friar John]

[Enter Juliet]
Romeo: Open your heart.
[Exit Romeo]

(Hayal edilmiş) bir test durumu:

Uzunluğuna rağmen, bu program sadece girdi olarak tek bir tamsayı alır ve çıktı olarak tek bir tamsayı sağlar. Yani:

6 ↵ 720
7 ↵ 5040
0 ↵ 1    1 ↵ 1

("Altı, yedi yirmi. / Yedi, beş bin kırk. / Sıfır, bir. Bir, bir.")

Python 2, 4 Haikus

Tam bir Python 2 programı haifac.py. Olarak çalıştırmakpython haifac.py <n>

#run this full program
import operator as\
op; import sys#tem

#please provide an arg
n = sys.argv[1]
def haifac (n):

    if n < 1:
        return 1#to me at once
    else:#do something else

        return op.mul(
            n, haifac(n - 1))
print haifac(int(n))

telaffuzu:

bu tam program
alma operatörünü
op import system olarak çalıştır

lütfen bir argüman sağlayın
n eşittir sys argüman v 1
tanımla hai fac n

Eğer n'den 1’den azsa
, bir kerede bana 1 iadesi
başka bir şey yap

dönüş op nokta mul
n hai fac n eksi 1
baskı hai fac int n

GolfScript, 2 Haikus

),{0>},{,,*}*

Her tuş vuruşunu numaralandırmak için haiku olarak okuyun:

#close parenthesis
#comma open-brace zero
#greater-than close-brace

#comma open-brace
#comma comma asterisk
#close-brace asterisk

Test durumuyla (5 haikus):

[1 2 3]4+          #generate the array [1 2 3 4]
{                  #start creating block
),{0>},{,,*}*      #actual factorial code
}%                 #close block and map across array (so that we should have [1! 2! 3! 4!])
[1 2 6]2.3**12++=  #generate the array [1 2 6 24] and check for equality

Haiku olarak okuyun:

#open-bracket one
#space two space three close-bracket
#four plus open-brace

#close parenthesis
#comma open-brace zero
#greater-than close-brace

#comma open-brace
#comma comma asterisk
#close-brace asterisk

#close-brace percent-sign
#open-bracket one space two
#space six close-bracket

#two period three
#asterisk asterisk one
#two plus plus equals

ileri

: fugu 1              \ colon fugu one                = 5
swap 1 + 1 ?do        \ swap one plus one question do = 7
i * loop ;            \ eye star loop semi            = 5

Fugu fonksiyon ve benim kigo girişimim : blowfish kış referansıdır. Sayılan döngüden önce dönüm noktası olan kireji?do olmayı düşünüyorum .

PHP, 4 haikus

Tüm kafiye haikus!

function haiku($can) { // function haiku can (5)
    if ($can == 1) // if can is equal to one (7)
        return ++$stun; // return increase stun (5)

    if ($can == 0) { // if can equals ou (5)
        echo "It is one, you know! "; //echo "It is one, you know! " (7)
        return 1+$blow; } //return one plus blow (5)

    if ($can > $fun) { //if can exceeds fun (5)
        return haiku($can-1) //return haiku can less one (7)
            *$can; }} //multiplied by can (5)

if (null == $knee) { // if null equals knee (5)
    $free=0+3; // free equals zero plus three (7)
    echo haiku($free); } // echo haiku free (5)

Beyaz boşluk

Bu, en ünlü haiku'lardan birini kullanır ve bu konuda çok şey yazıldı.

Bunu neden daha önce hiç kimsenin yapmadığı hakkında hiçbir fikrim yok, hiç çaba göstermiyor bile!

Öncelikle, şiiri okumadan önce, arkanıza yaslanmanızı, rahatlamanızı ve şiiri çevreleyen büyük boşluğun yarattığı huzurun tadını çıkarmanızı istiyorum. Geniş bir manzara ile çevrili gölet vurguluyor.

古 池 や    
蛙 飛 び こ む               
水 の 音             

filebin'deki kaynak kod

Japonca konuşmamanız durumunda, bu şu şekilde söylenir :

seni seviyorum

ka wa zu'dan bi ko mu'ya

mi zu hayır o

Doğal olarak, mora ile sayılır. Kireji (やolan ya ) , kigo ((sezonluk referans)蛙olan Kawazu -> yay, kurbağa,) .

Resmi tercümandaki linux tercümanı kullanarak şu şekilde kullanabilirsiniz:

5 eko 5 | ./wspace .ws

Mathematica

f[x_]:=     (* f of x defined *)
 x f[x-1]   (* x times f of x less 1 *)
f[1]=1      (* Mogami River *) 

Soyguncular son satırı "f'nin 1'i 1" olarak okuyabilir, ancak Basho'ya seslenmeye karşı koyamadım.

Test yapmak:

Table[f[n],     (* Table f of n *)
 {n, 1, 10, 1}] (* n from 1 to 10 by 1 *)
ListLogPlot[%]  (* ListLogPlot output *)

Geri dönen:

(1, 2, 6, 24, 120, 720, 5040, 40320, 362880, 3628800)

Dilbilimsel Farklılık Bonusu Haiku (@cormullion'dan esinlenerek)

Rewrite any term
High-level functions abound —
Mathematica

Grup, yığın, parça, bir defada alınan miktar

@set /a t=1 &^
for /L %%a in (2, 1, %1) ^
do @set /a t*=%%a

Telaffuz ; Bu sembollerin yanı sıra matematiksel ifadeleri de yok sayar @ / % ^ , ( ):

1 olarak ayarlayın ve
2 için 1 a a,
ata ata

Not; Bu, faktörü hesaplar, çıktı vermez - değişken tfaktörü içerir.

Faktörün çıktısını almak için aşağıdaki Haiku / kod aynı toplu iş dosyasına eklenebilir ( |'s boru olarak telaffuz edilir):

@echo %t% ||^
When will you learn, unclemeat ^
Why must you use Batch?

Clojure

(->> *command-line-args*                ; thrush com-mand line args
  seq last read-string range (map inc)  ; seq last read string range map inc
  (reduce *) println)                   ; re-duce times print-lin

F #

let fact n =
    [1..n] |>
    Seq.fold (*) 1

n'nin
birden n'ye kadar olmasına izin verin ,
Seq dot fold yıldız bir uygulayın

newLISP

Parantezler belirgin değildir:

(define (fac n (so))            ; define fac n so 
(if (= n 0) 1                   ; if equals n zero 1
(* n (fac (dec n)))))           ; times n fac dec n

(for (n 0 10)                   ; for n zero ten
; let's test from zero to ten
(println (fac n thus)))         ; printline fac n thus

Lisp kodu

sayısız parantez

ve birkaç fonksiyon

Perl

$r = 1; for(1           # r gets one for one
.. pop @ARGV) { $r *=   # to pop arg v r splat gets
$_; } print $r;         # the default print r

Bunu adlı bir dosyaya at f.pl

Ve çıktı:

$ perl f.pl 3
6 $ perl f.pl 1-1
1 $ per f.pl 10
3628800 $ 

Hangi okundu:

perl fpl üç
perl fpl bir az bir
perl fpl on

LiveScript

Bu ortaçağ:

prelude = ^^ do                       # prelude is clone do
  require \prelude-ls                 # require prelude dash ls
{ product } = prelude                 # product is prelude

story = (ah) ->                       # story is ah such:
  ones-misery = (one) ->              # one's misery is one such
    let death = product               # let death be product

      fight = [1 to one]              # fight is one to one
      why = (one) -> death <| fight   # why is one such death take fight
  ones-misery ah                      # one's misery ah

room = console.log                    # room is console log
room <| (story 10)!                   # room take story three bang
[null of { use : this }]              # no of use is this

Baskılar 3628800, ki bu 10!. Biraz dolambaçlı: İşlev her zaman cevabı storydöndüren bir işlev ones-miserydöndürür. Bu şekilde artsier.

Dolgu yorumları veya gereksiz dizeler yok!

Bonus hata ayıklama hikayesi:

Bir hatanın
" deatholduğunu undefined" bildiği zaman gülmekten patladı.

Haskell

Bu, kafiyeli bir haiku olacak!

gerçekte 0 = 1 - tam sıfır bir
ton ton = ton * (gerçek sersemletmek) - tam ton ton çarpı gerçektir
        sersemletmek = pred ton - nerede sersemletmek pred ton

Evet!

Not: Pred önceki sayı anlamına gelir. Ayrıca, haskell'de, bir fonksiyonun çoklu tanımlarına sahip olabilirsiniz ve mantıklı olan ilk kullanılan kullanılır.

Yakut - Bir Haiku

ARGV.first.to_i.
 tap do |please| puts 1.upto(
 please ).inject( :*) end

Şu şekilde (noktalama işaretini yok sayarak, ancak bir ifadeyi içeren) okuyun:

 arg vee first to i
   tap do please puts one up to
 please inject smile end

SML’de:

fun fact 0 = 1
  | fact n = n*fact(n-1)
  ;

olarak oku:

"fun fact 0 is one,
bar that, fact n is n times
fact of n less one"

Perl

Hazır fonksiyonları kullanmanın kurallara aykırı olduğunu biliyorum, ama işte anladım.

Görevinizin, aşırı büyük bir kemirgene talimat vermek olduğunu düşünün:

use Math::BigRat; use
feature 'say'; use warnings; say
new Math::BigRat($_)->bfac

Sadece son kelimenin ne anlama geldiğini ve nasıl telaffuz edildiğini tahmin edebiliyorum, ama sizi temin ederim ki tek heceli. Görünüşe göre ondan ne istediğini anlamıyor, bu yüzden detaylandırmalısın (sabrını yitirirken kalite standartlarını hafifletmek zorundasın):

use Math::BaseConvert
':all'; no strict subs; no warnings;
reset and say fact($_)

hala boşuna. O zaman İngilizce'yi basitçe açıklaman gerekiyor:

no strict; no warnings;
use Math::Combinatorics;
say factorial($_)

Sonra ne oldu Bilmiyorum, ancak kod geçerlidir:

perl -nE 'use Math::BigRat; use feature "say"; use warnings; say new Math::BigRat($_)->bfac'
42
1405006117752879898543142606244511569936384000000000

ve

perl -nE 'use Math::BaseConvert ":all"; no strict subs; no warnings; reset and say fact($_)'
33
8683317618811886495518194401280000000

ve

perl -nE 'no strict; no warnings; use Math::Combinatorics; say factorial($_)'
16
20922789888000

piton

lambda n: reduce(
    lambda a, b: a * b,
    range(1, n), n)

Okuduğum yol:

lambda n: reduce
lambda a b: a times b
range 1 to n, n

'

C

#include <std\
io.h> 
#include \
<stdlib.h>

int main(int argc
 , char** argv)
{   // iteratively
    // compute factorial here
long int n = \
0, i \
= 0, r = \
1 /*
product starts at one*/;

if (argc 
> 1) { n = 
strtol(argv[\
1], NULL, 10)
; if (n 
< 0) {
       printf("Arg must\
       be >= 0\n");
       exit(-
    1);}
} i = 
n;
while (i) { r 
= r * i;
    i
--;
} /* print
the result*/ printf(
"%d factorial\
equals %d\
\n", n
, r);
/*done*/}

telaffuzu:

pound standart
g / Ç nokta h içerir pound
standart lib nokta h içerir

int main int arg c
virgül karakter yıldız yıldız arg v
açık küme ayracı yorum

Burada yinelemeli çarpanları hesaplayabilir
long int n eşittir

sıfır virgül ben
sıfır virgül r
bir yorum eşittir

arg c
birden büyükse, ürün bir noktalı virgülle başlar

açık ayracı n,
arg v alt
bir virgül NULL virgül on dizinin str-l'sidir.

noktalı virgül
n sıfırdan küçük olursa,
printf arg gerekir

sıfır ters eğik çizgi
n noktalı virgülünden büyük veya eşit olması

çık negatif
bir noktalı virgül sonu ayraç
sonu ayraç i eşittir

n noktalı virgül
açarken ayraç r
eşittir r çarpı ı

noktalı virgül ben
azalır noktalı virgül
kapat ayracı yorum yazdır

sonuç baskı
yüzdesi d faktörlü
yüzde d'ye eşittir

vurmak n virgül n
virgül r noktalı virgül
yorum bitmiş ayraç

C # - 3 haikus

Her zamanki C # kullanarak, 4. haiku olacak olan ad alanını ve sınıf tanımı dağınıklığını kaldırdım.

public static void
Main(){int num = Convert.
ToInt32

(Console.ReadLine());
 Console.WriteLine(num ==
 0 ? 1 :

Enumerable.
Range(1, num).Aggregate
((i, j) => i * j));}

hangi okudum

public static void 
Main int num equals Convert
To int thirty-two

Console dot Read line
Console Write line num equals
zero? then one, else

Enumerable
Range 1 to num aggregate
i j i times j

Haskell

module Haiku where          -- read literally.
fac x = let in do           -- = is read as 'equals'
product [1..x]              -- product one to x

modülün .. derleme sırasında herhangi bir Haskell koduna otomatik olarak eklendiği, dolayısıyla yazmanın pratik olarak aldatma olduğuna dikkat edin.

JAVA:

Quincunx tarafından Java'da yayınlanan soruya ve Dwaiku'ya (Double-Haiku veya ne demek istersen) cevaben, işte doğru Haiku:

public static int factorial(int n) {
   return (n==0) ? (n+1) : (factorial(n-1) * n);
}

Javascript - İki Haiküs

function factor (a) {          // function factor a
  if(!a){ return 1 ||          // if not a return 1 or
    a & 17}                    // a and seventeen

  else if (a + 1){             // else if a plus one 
    return a * factor          // return a into factor
    (a + ( - 1) )  }}          // a plus minus one 

Ben anadili değilim. Böylece heceleri saymak için bir sözlük kullandım. Umarım, yeterince iyidir. Herhangi bir geri bildirim açığız :)

Powershell, 2 Haikus

function facto ($num){    # function facto num
$i = 1; 1..$num|          # i equals one; i to num
foreach { $i =            # for each i equals

$i * $_}; write $i}       # i times this write i
$answer = facto $args[    # answer equals facto args
0]; write $answer         # zero write answer

Dolgu kullanmamıza izin var mı?

Python 2 haikus:

number = num + 1
a = 13 + 4
b = 14

nuum = len([1])
for i in range(1, number):
    nuum *= i

Befunge-93

Üç haikus:

0&>:v
-:|:>1>
v#>$\
>:>>v
>$.@v<<
^#v*_
#>>>v
<<:\<>^
<#<#<

Son satır kuşkusuz hileli.

Burada deneyin: http://www.bedroomlan.org/tools/befunge-93-playground