কোড গল্ফ - π দিন

Question 1

চ্যালেঞ্জ

অক্ষর Rব্যবহার করে ব্যাসার্ধের বৃত্তের উপস্থাপনা প্রদর্শনের জন্য অক্ষর গণনা দ্বারা সংক্ষিপ্ততম কোড এবং *তারপরে π এর প্রায় অনুমান হয় π

ইনপুট একটি একক সংখ্যা R,।

যেহেতু বেশিরভাগ কম্পিউটারের কাছে প্রায় 2: 1 অনুপাত রয়েছে বলে মনে হচ্ছে আপনার কেবলমাত্র যেখানে yবিজোড় লাইন থাকবে । এর অর্থ হ'ল যখন Rবিজোড় হয় আপনার R-1লাইনগুলি প্রিন্ট করা উচিত । R=13স্পষ্ট করার জন্য একটি নতুন টেস্টকেস রয়েছে ।

যেমন

Input
    5
Output      Correct                          Incorrect

        3    *******                    4      *******
        1   *********                   2     *********
       -1   *********                   0    ***********
       -3    *******                   -2     *********
           2.56                        -4      *******
                                            3.44

সম্পাদনা: এর বিজোড় মূল্যবোধের কারণে বিভ্রান্তির কারণে R, নীচে প্রদত্ত 4 টি পরীক্ষার ক্ষেত্রে পাস হওয়া যে কোনও সমাধান গ্রহণ করা হবে

Characters এর অনুমানটি *অক্ষরের সংখ্যাকে দ্বিগুণ দ্বারা ভাগ করে দেওয়া হয় R²।
আনুমানিক কমপক্ষে 6 টি উল্লেখযোগ্য সংখ্যায় সঠিক হওয়া উচিত।
বিশিষ্ট বা লম্বা শূন্য অনুমতি দেওয়া হয়েছে, তাই কোন উদাহরণস্বরূপ 3, 3.000000, 003এর ইনপুট জন্য গৃহীত 2এবং 4।

কোড গণনা ইনপুট / আউটপুট অন্তর্ভুক্ত (যেমন, সম্পূর্ণ প্রোগ্রাম)।

পরীক্ষার মামলা

Input
    2
Output
     *** 
     *** 
    3.0

Input
    4
Output
      *****  
     ******* 
     ******* 
      *****  
    3.0

Input
    8
Output
         *******     
      *************  
     *************** 
     *************** 
     *************** 
     *************** 
      *************  
         *******     
    3.125

Input
    10
Output
          *********      
       ***************   
      *****************  
     ******************* 
     ******************* 
     ******************* 
     ******************* 
      *****************  
       ***************   
          *********      
    3.16

বোনাস টেস্ট কেস

Input
    13
Output

           *************       
        *******************    
       *********************   
      ***********************  
     ************************* 
     ************************* 
     ************************* 
     ************************* 
      ***********************  
       *********************   
        *******************    
           *************                                          
    2.98224852071

Question 2

ডিসি তে: 88 এবং 93 93 94 96 102 105 129 138 141 অক্ষরে

কেবলমাত্র, আমি এই মুহুর্তে ওপেনবিএসডি এবং কিছু অনুমিত-বহনযোগ্য এক্সটেনশন ব্যবহার করছি।

93 চর। এটি ফরট্রান সমাধান হিসাবে একই সূত্রের উপর ভিত্তি করে (পরীক্ষার কেসগুলির তুলনায় কিছুটা পৃথক ফলাফল)। প্রতি Y এর জন্য এক্স ^ 2 = আর ^ 2-ওয়াই ^ 2 গণনা করে

[rdPr1-d0<p]sp1?dsMdd*sRd2%--
[dd*lRr-vddlMr-32rlpxRR42r2*lpxRRAP4*2+lN+sN2+dlM>y]
dsyx5klNlR/p

88 অক্ষর। Iterative সমাধান। ম্যাচ পরীক্ষার মামলা। প্রতিটি এক্স এবং ওয়াইয়ের জন্য এক্স ^ 2 + ওয়াই ^ 2 <= আর। 2 পরীক্ষা করে

1?dsMdd*sRd2%--sY[0lM-[dd*lYd*+lRr(2*d5*32+PlN+sN1+dlM!<x]dsxxAPlY2+dsYlM>y]
dsyx5klNlR/p

চালাতে dc pi.dc।

এখানে একটি পুরানো টিকা বর্ণিত সংস্করণ:

# Routines to print '*' or ' '. If '*', increase the counter by 2
[lN2+sN42P]s1
[32P]s2
# do 1 row
# keeping I in the stack
[
 # X in the stack
 # Calculate X^2+Y^2 (leave a copy of X)
 dd*lYd*+ 
 #Calculate X^2+Y^2-R^2...
 lR-d
 # .. if <0, execute routine 1 (print '*')
 0>1
 # .. else execute routine 2 (print ' ')
 0!>2 
 # increment X..
 1+
 # and check if done with line (if not done, recurse)
 d lM!<x
]sx
# Routine to cycle for the columns
# Y is on the stack
[
  # push -X
  0lM- 

  # Do row
  lxx 
  # Print EOL
  10P
  # Increment Y and save it, leaving 2 copies
  lY 2+ dsY 
  # Check for stop condition
  lM >y
]sy
# main loop
# Push Input value
[Input:]n?
# Initialize registers
# M=rows
d sM
# Y=1-(M-(M%2))
dd2%-1r-sY
# R=M^2
d*sR
# N=0
0sN
[Output:]p
# Main routine
lyx
# Print value of PI, N/R
5klNlR/p

Question 3

সি: 131 অক্ষর

(জোয়ের সি ++ সমাধানের ভিত্তিতে)

main(i,j,c,n){for(scanf("%d",&n),c=0,i|=-n;i<n;puts(""),i+=2)for(j=-n;++j<n;putchar(i*i+j*j<n*n?c++,42:32));printf("%g",2.*c/n/n);}

( বিজোড় সংখ্যার কেসের সমর্থন অপসারণ i|=-nকরতে পরিবর্তন করুন i-=nThis এটি কেবল চর গণনা হ্রাস করে ১৩০ এ পরিণত হয়েছে))

একটি বৃত্ত হিসাবে:

      main(i,j,
   c,n){for(scanf(
  "%d",&n),c=0,i=1|
 -n;i<n;puts(""),i+=
 0x2)for(j=-n;++j<n;
 putchar(i*i+j*j<n*n
 ?c++,0x02a:0x020));
  printf("%g",2.*c/
   n/n);3.1415926;
      5358979;}

Question 4

এক্সএসএলটি 1.0

কেবল মজাদার জন্য, এখানে একটি এক্সএসএলটি সংস্করণ। আসলে কোড-গল্ফ উপাদান নয়, তবে এটি একটি অদ্ভুত-কার্যকরী-এক্সএসএলটি-জাতীয় উপায়ে সমস্যার সমাধান করে :)

<?xml version="1.0"?>
<xsl:stylesheet version="1.0"
                xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
                xmlns:msxsl="urn:schemas-microsoft-com:xslt" >
  <xsl:output method="html"/>

  <!-- Skip even lines -->
  <xsl:template match="s[@y mod 2=0]">
    <xsl:variable name="next">
      <!-- Just go to next line.-->
      <s R="{@R}" y="{@y+1}" x="{-@R}" area="{@area}"/>
    </xsl:variable>
    <xsl:apply-templates select="msxsl:node-set($next)"/>
  </xsl:template>

  <!-- End of the line?-->
  <xsl:template match="s[@x &gt; @R]">
    <xsl:variable name="next">
      <!-- Go to next line.-->
      <s R="{@R}" y="{@y+1}" x="{-@R}" area="{@area}"/>
    </xsl:variable><!-- Print LF-->&#10;<xsl:apply-templates 
      select="msxsl:node-set($next)"/>
  </xsl:template>

  <!-- Are we done? -->
  <xsl:template match="s[@y &gt; @R]">
    <!-- Print PI approximation -->
    <xsl:value-of select="2*@area div @R div @R"/>
  </xsl:template>

  <!-- Everything not matched above -->
  <xsl:template match="s">
    <!-- Inside the circle?-->
    <xsl:variable name="inside" select="@x*@x+@y*@y &lt; @R*@R"/>
    <!-- Print "*" or " "-->
    <xsl:choose>
      <xsl:when test="$inside">*</xsl:when>
      <xsl:otherwise>&#160;</xsl:otherwise>
    </xsl:choose>

    <xsl:variable name="next">
      <!-- Add 1 to area if we're inside the circle. Go to next column.-->
      <s R="{@R}" y="{@y}" x="{@x+1}" area="{@area+number($inside)}"/>
    </xsl:variable>
    <xsl:apply-templates select="msxsl:node-set($next)"/>
  </xsl:template>

  <!-- Begin here -->
  <xsl:template match="/R">
    <xsl:variable name="initial">
      <!-- Initial state-->
      <s R="{number()}" y="{-number()}" x="{-number()}" area="0"/>
    </xsl:variable>
    <pre>
      <xsl:apply-templates select="msxsl:node-set($initial)"/>
    </pre>
  </xsl:template>
</xsl:stylesheet>

আপনি যদি এটি পরীক্ষা করতে চান তবে এটি হিসাবে সংরক্ষণ করুন pi.xsltএবং আইআই-তে নিম্নলিখিত XML ফাইলটি খুলুন:

<?xml version="1.0"?> 
<?xml-stylesheet href="pi.xslt" type="text/xsl" ?> 
<R> 
  10 
</R>

Question 5

পার্ল, 95 96 99 106 109 110 119 চরিত্র:

$t+=$;=1|2*sqrt($r**2-($u-2*$_)**2),say$"x($r-$;/2).'*'x$;for 0..
($u=($r=<>)-1|1);say$t*2/$r**2

(নতুন লাইনটি সরানো যেতে পারে এবং কেবল সেখানে একটি স্ক্রোলবার এড়ানোর জন্য রয়েছে)

হ্যাঁ! সার্কেল সংস্করণ!

    $t+=$;=
 1|2*sqrt($r**
2-($u-2*$_)**2)
,say$"x($r-$;/2
).'*'x$;for 0..
($u=($r=<>)-1|1
 );$pi=~say$t*
    2/$r**2

নিরবিচ্ছিন্ন জন্য, দীর্ঘ সংস্করণ:

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

# Read the radius from STDIN
my $radius = <>;

# Since we're only printing asterisks on lines where y is odd,
# the number of lines to be printed equals the size of the radius,
# or (radius + 1) if the radius is an odd number.
# Note: we're always printing an even number of lines.
my $maxline = ($radius - 1) | 1;

my $surface = 0;

# for ($_ = 0; $_ <= $maxline; $_++), if you wish
for (0 .. $maxline) {
    # First turn 0 ... N-1 into -(N/2) ... N/2 (= Y-coordinates),
    my $y = $maxline - 2*$_;

    # then use Pythagoras to see how many stars we need to print for this line.
    # Bitwise OR "casts" to int; and: 1 | int(2 * x) == 1 + 2 * int(x)
    my $stars = 1 | 2 * sqrt($radius**2-$y**2);
    $surface += $stars;    

    # $" = $LIST_SEPARATOR: default is a space,
    # Print indentation + stars 
    # (newline is printed automatically by say)
    say $" x ($radius - $stars/2) . '*' x $stars;
}

# Approximation of Pi based on surface area of circle:
say $surface*2/$radius**2;

Question 6

ফরট্রান - 101 টি অক্ষর

$ f95 piday.f95 -o piday && echo 8 | ./piday

READ*,N
DO I=-N,N,2
M=(N*N-I*I)**.5
PRINT*,(' ',J=1,N-M),('*',J=0,M*2)
T=T+2*J
ENDDO
PRINT*,T/N/N
END

    READ*,N
  K=N/2*2;DO&
 I=1-K,N,2;M=&
(N*N-I*I)**.5;;
PRINT*,(' ',J=&
1,N-M),('*',J=&
0,M*2);T=T+2*J;
 ENDDO;PRINT*&
  ,T/N/N;END;
    !PI-DAY

Question 7

x86 মেশিন কোড: 127 বাইট

ইন্টেল এসেমব্লার: 490 টি অক্ষর

    mov si,80h
    mov cl,[si]
    jcxz ret
    mov bx,10
    xor ax,ax
    xor bp,bp
    dec cx
  a:mul bx
    mov dl,[si+2]
    sub dl,48
    cmp dl,bl
    jae ret
    add ax,dx
    inc si
    loop a
    mov dl,al
    inc dl
    mov dh,al
    add dh,dh
    mov ch,dh
    mul al
    mov di,ax
  x:mov al,ch
    sub al,dl
    imul al
    mov si,ax
    mov cl,dh
  c:mov al,cl
    sub al,dl
    imul al
    add ax,si
    cmp ax,di
    mov al,32
    ja y
    or al,bl
    add bp,2
  y:int 29h
    dec cl
    jnz c
    mov al,bl
    int 29h
    mov al,13
    int 29h
    sub ch,2
    jnc x
    mov ax,bp
    cwd
    mov cl,7
  e:div di
    cmp cl,6
    jne z
    pusha
    mov al,46
    int 29h
    popa
  z:add al,48
    int 29h
    mov ax,bx
    mul dx
    jz ret
    dec cl
    jnz e
    ret

এই সংস্করণটি বোনাস পরীক্ষার পাশাপাশি পরিচালনা করে এবং এটি 133 বাইট:

    mov si,80h
    mov cl,[si]
    jcxz ret
    mov bx,10
    xor ax,ax
    xor bp,bp
    dec cx
  a:mul bx
    mov dl,[si+2]
    sub dl,48
    cmp dl,bl
    jae ret
    add ax,dx
    inc si
    loop a
    mov dl,al
    rcr dl,1
    adc dl,dh
    add dl,dl
    mov dh,dl
    add dh,dh
    dec dh
    mov ch,dh
    mul al
    mov di,ax
  x:mov al,ch
    sub al,dl
    imul al
    mov si,ax
    mov cl,dh
  c:mov al,cl
    sub al,dl
    imul al
    add ax,si
    cmp ax,di
    mov al,32
    jae y
    or al,bl
    add bp,2
  y:int 29h
    dec cl
    jnz c
    mov al,bl
    int 29h
    mov al,13
    int 29h
    sub ch,2
    jnc x
    mov ax,bp
    cwd
    mov cl,7
  e:div di
    cmp cl,6
    jne z
    pusha
    mov al,46
    int 29h
    popa
  z:add al,48
    int 29h
    mov ax,bx
    mul dx
    jz ret
    dec cl
    jnz e
    ret

Question 8

পাইথন: 101 104 107 110 টি অক্ষর

নিকোলাস রিলির অন্যান্য পাইথন সংস্করণের উপর ভিত্তি করে।

r=input()
t=0
i=1
exec"n=1+int((2*i*r-i*i)**.5)*2;t+=2.*n/r/r;print' '*(r-n/2)+'*'*n;i+=2;"*r
print t

কিছু গণিতের জন্য AlcariTheMad এর ক্রেডিট।

আহ, বিজোড় সংখ্যাযুক্তগুলি মধ্যম হিসাবে শূন্যের সাথে সূচিযুক্ত, সমস্ত কিছু ব্যাখ্যা করে।

বোনাস পাইথন: ১১৫ টি চর (দ্রুত একসাথে হ্যাক)

r=input()
t=0
i=1
while i<r*2:n=1+int((2*i*r-i*i)**.5)*2;t+=2.*n/r/r;print' '*(r-n/2)+'*'*n;i+=2+(r-i==2)*2
print t

Question 9

শক্তির উৎস, 119 113 109 টি অক্ষর

($z=-($n=$args[($s=0)])..$n)|?{$_%2}|%{$l="";$i=$_
$z|%{$l+=" *"[$i*$i+$_*$_-lt$n*$n-and++$s]};$l};2*$s/$n/$n

এবং এখানে একটি সুন্দর সংস্করণ:

( $range = -( $R = $args[ ( $area = 0 ) ] ) .. $R ) | 
  where { $_ % 2 } |
  foreach {
    $line = ""
    $i = $_
    $range | foreach {
        $line += " *"[ $i*$i + $_*$_ -lt $R*$R -and ++$area ]
    }
    $line
 }
 2 * $area / $R / $R

Question 10

হাইপারটালক: 237 টি অক্ষর

ইন্ডেন্টেশন প্রয়োজন হয় না বা গণনা করা হয় না। এটি স্বচ্ছতার জন্য যুক্ত করা হয়েছে। এছাড়াও নোট করুন যে হাইপারকার্ড ২.২ আমার ব্যবহৃত AS অ্যাসিএসআইআই-র সম্পর্কিত opera

function P R
  put""into t
  put 0into c
  repeat with i=-R to R
    if i mod 2≠0then
      repeat with j=-R to R
        if i^2+j^2≤R^2then
          put"*"after t
          add 1to c
        else
          put" "after t
        end if
      end repeat
      put return after t
    end if
  end repeat
  return t&2*c/R/R
end P

যেহেতু হাইপারকার্ড 2.2 স্টিডিন / স্টডআউট সমর্থন করে না, পরিবর্তে একটি ফাংশন সরবরাহ করা হয়।

Question 11

সি #: 209 202 201 টি অক্ষর:

using C=System.Console;class P{static void Main(string[]a){int r=int.Parse(a[0]),s=0,i,x,y;for(y=1-r;y<r;y+=2){for(x=1-r;x<r;s+=i)C.Write(" *"[i=x*x+++y*y<=r*r?1:0]);C.WriteLine();}C.Write(s*2d/r/r);}}

স্বাক্ষরিত:

using C = System.Console;
class P {
  static void Main(string[] arg) {
    int r = int.Parse(arg[0]), sum = 0, inside, x, y;
    for (y = 1 - r; y < r; y += 2) {
      for (x = 1 - r; x < r; sum += inside)
        C.Write(" *"[inside = x * x++ + y * y <= r * r ? 1 : 0]);
      C.WriteLine();
    }
    C.Write(sum * 2d / r / r);
  }
}

Question 12

হাস্কেল 139 145 147 150 230 চর:

x True=' ';x _='*'
a n=unlines[[x$i^2+j^2>n^2|j<-[-n..n]]|i<-[1-n,3-n..n]]
b n=a n++show(sum[2|i<-a n,i=='*']/n/n)
main=readLn>>=putStrLn.b

বিজোড় সংখ্যা হ্যান্ডলিং: ১৪৮ টি অক্ষর:

main=do{n<-readLn;let{z k|k<n^2='*';z _=' ';c=[[z$i^2+j^2|j<-[-n..n]]|i<-[1,3..n]];d=unlines$reverse c++c};putStrLn$d++show(sum[2|i<-d,i=='*']/n/n)}

150 টি অক্ষর: (সি সংস্করণের উপর ভিত্তি করে))

a n=unlines[concat[if i^2+j^2>n^2then" "else"*"|j<-[-n..n]]|i<-[1-n,3-n..n]]
main=do n<-read`fmap`getLine;putStr$a n;print$2*sum[1|i<-a n,i=='*']/n/n

230 অক্ষর:

প্রধান = do {r <-read`fmap`getLine; let {p = putStr; d = 2 / fromIntegral r ^ 2; lyn = let cmx = if x> r তবে p "\ n" >> x যদি ফিরে আসে তবে x * x + y * y <r * আর এর পরে পি "*" >> সি (এম + ডি) (এক্স + 1) অন্য পি "" >> সেন্টিমিটার (x + 1) এর মধ্যে যদি y> আর তবে অন্য সিএন মুদ্রণ করুন (-আর) >> = l (y + 2)}; l (1-r`mod`2-r) 0

স্বাক্ষরিত:

main = do r <- পড়ুন `fmap` getLine
          চলুন পি = putStr
              d = 2 / fromIntegral r ^ 2
              lyn = আসুন cmx = যদি x> আর r
                                  তারপরে পি "\ n" >> রিটার্ন মি
                                  অন্যথায় যদি x * x + y * y <r * আর হয়
                                       তারপরে পি "*" >> সি (এম + ডি) (x + 1)
                                       অন্য p "" >> সেমি (x + 1)
                      মধ্যে যদি y> r
                         তারপরে প্রিন্ট করা n
                         অন্যথায় সিএন (-আর) >> = l (y + 2)
          l (1-r`mod`2-r) 0

আমি আশাবাদী ছিলাম যে এটি কিছু প্রয়োজনীয় সংস্করণকে পরাজিত করবে, তবে আমি এ মুহূর্তে এটিকে আর সংকোচনের বলে মনে করতে পারি না।

Question 13

রুবি, 96 টি অক্ষর

(গুফার সি # সমাধানের ভিত্তিতে):

r=gets.to_f
s=2*t=r*r
g=1-r..r
g.step(2){|y|g.step{|x|putc' * '[i=t<=>x*x+y*y];s+=i}
puts}
p s/t

109 অক্ষর (বোনাস):

r=gets.to_i
g=-r..r
s=g.map{|i|(g.map{|j|i*i+j*j<r*r ?'*':' '}*''+"\n")*(i%2)}*''
puts s,2.0/r/r*s.count('*')

Question 14

পিএইচপি: 117

দেব-নাল-বাসিন্দার উপর ভিত্তি করে

for($y=1-$r=$argv[1];$y<$r;$y+=2,print"\n")for($x=1-$r;$x<$r;$x++)echo$r*$r>$x*$x+$y*$y&&$s++?'*':' ';echo$s*2/$r/$r;

Question 15

আপনি ছেলেরা উপায় খুব কঠিন চিন্তা।

switch (r) {
   case 1,2:
      echo "*"; break;
   case 3,4:
      echo " ***\n*****\n ***"; break;
   // etc.
}

Question 16

জে: 47 , 46 , 45

অন্যান্য সমাধান হিসাবে একই বুনিয়াদি ধারণা, যেমন r ^ 2 <= x y 2 + y ^ 2 , তবে জে এর অ্যারে-ভিত্তিক স্বীকৃতি অভিব্যক্তিটিকে সহজ করে তোলে:

c=:({&' *',&":2*+/@,%#*#)@:>_2{.\|@j./~@i:@<:

আপনি এটির মতো কল চাই c 2বা c 8বা c 10ইত্যাদি

বোনাস: 49

বিজোড় ইনপুট হ্যান্ডেল করতে, উদাহরণস্বরূপ 13, প্রতি আউটপুটটির প্রতিটি সারিটি গ্রহণের পরিবর্তে আমাদেরকে বিজোড়-মূল্যবান এক্স স্থানাঙ্কগুলিতে ফিল্টার করতে হবে (কারণ এখন সূচকগুলি একটি বা বিচিত্র সংখ্যায় শুরু হতে পারে)। এই সাধারণীকরণের জন্য আমাদের 4 টি অক্ষর ব্যয় হয়:

c=:*:({&' *'@],&":2%(%+/@,))]>(|@j./~2&|#])@i:@<:

নির্ধারিত সংস্করণ:

c =: verb define
  pythag   =. y > | j./~ i:y-1    NB.  r^2 > x^2 + y^2
  squished =. _2 {.\ pythag       NB.  Odd rows only
  piApx    =. (2 * +/ , squished) %  y*y
  (squished { ' *') , ": piApx
)

জে ফোরামে মার্শাল লচবামের কারণে উন্নতি এবং সাধারণীকরণ ।

Question 17

পাইথন: 118 টি অক্ষর

পার্ল সংস্করণের খুব সোজা সোজা বন্দর।

r=input()
u=r+r%2
t=0
for i in range(u):n=1+2*int((r*r-(u-1-2*i)**2)**.5);t+=n;print' '*(r-n/2-1),'*'*n
print 2.*t/r/r

Question 18

সি ++: 169 টি অক্ষর

#include <iostream>
int main(){int i,j,c=0,n;std::cin>>n;for(i=-n;i<=n;i+=2,std::cout<<'\n')for(j=-n;j<=n;j++)std::cout<<(i*i+j*j<=n*n?c++,'*':' ');std::cout<<2.*c/n/n;}

স্বাক্ষরিত:

#include <iostream>
int main()
{
    int i,j,c=0,n;
    std::cin>>n;
    for(i=-n;i<=n;i+=2,std::cout<<'\n')
        for(j=-n;j<=n;j++)
            std::cout<<(i*i+j*j<=n*n?c++,'*':' ');
    std::cout<<2.*c/n/n;
}

(হ্যাঁ, using namespace stdকম অক্ষরের ব্যবহারের পরিবর্তে স্ট্যান্ড :: ব্যবহার করা)

এখানে আউটপুট মূল পোস্টে পরীক্ষার কেসের সাথে মেলে না, সুতরাং এখানে যা রয়েছে (পাঠযোগ্যতার জন্য লিখিত)। এটিকে একটি রেফারেন্স বাস্তবায়ন বিবেচনা করুন (যদি পোয়েটা_ কিছু মনে করেন না):

#include <iostream>
using namespace std;

int main()
{
    int i, j, c=0, n;
    cin >> n;
    for(i=-n; i<=n; i++) {
        if (i & 1) {
            for(j=-n; j<=n; j++) {
                if (i*i + j*j <= n*n) {
                    cout << '*';
                    c++;
                } else {
                    cout << ' ';
                }
            }
            cout << '\n';
        }
    }
    cout << 2.0 * c / n / n << '\n';
}

সি ++: ১8৮ টি অক্ষর (আউটপুট সহ আমি বিশ্বাস করি যে সঠিক)

#include <iostream>
int main(){int i,j,c=0,n;std::cin>>n;for(i=-n|1;i<=n;i+=2,std::cout<<"\n")for(j=-n;j<=n;j++)std::cout<<" *"[i*i+j*j<=n*n&&++c];std::cout<<2.*c/n/n;}

Question 19

পিএইচপি: 126 132 138

(গুফা সি # সমাধানের ভিত্তিতে)

126:

for($y=1-($r=$argv[1]);$y<$r;$y+=2,print"\n")for($x=1-$r;$x<$r;$s+=$i,++$x)echo($i=$x*$x+$y*$y<=$r*$r)?'*':' ';echo$s*2/$r/$r;

132:

for($y=1-($r=$argv[1]);$y<$r;$y+=2){for($x=1-$r;$x<$r;@$s+=$i,++$x)echo($i=$x*$x+$y*$y<=$r*$r?1:0)?'*':' ';echo"\n";}echo$s*2/$r/$r;

138:

for($y=1-($r=$argv[1]);$y<$r;$y+=2){for($x=1-$r;$x<$r;@$s+=$i){$t=$x;echo($i=$t*$x++ +$y*$y<=$r*$r?1:0)?'*':' ';}echo"\n";}echo$s*2/$r/$r;

বর্তমান পূর্ণ:

for( $y = 1 - ( $r = $argv[1]); $y < $r; $y += 2, print "\n")
    for( $x = 1-$r; $x < $r; $s += $i, ++$x)
        echo( $i = $x*$x + $y*$y <= $r*$r) ? '*' : ' ';
echo $s*2 /$r /$r;

@প্রথমটি ছাড়া আগে হতে পারে $sতবে কেবল ত্রুটি_সামগ্রী 0 তে সেট করা থাকে (নোটিশ আউটপুটগুলি বৃত্তটি গোলমাল করছে)

Question 20

রুবি 1.8.x, 93

r=$_.to_f
q=0
e=r-1
(p(('*'*(n=1|2*(r*r-e*e)**0.5)).center r+r)
q+=n+n
e-=2)while-r<e
p q/r/r

সাথে চালাও $ ruby -p piday

Question 21

এপিএল: 59

এই ফাংশনটি একটি সংখ্যা গ্রহণ করে এবং দুটি প্রত্যাশিত আইটেম ফেরত দেয়। বোনাস ক্ষেত্রে সঠিকভাবে কাজ করে।

{⍪(⊂' *'[1+m]),q÷⍨2×+/,m←(2|v)⌿(q←⍵*2)>v∘.+v←2*⍨⍵-⍳1+2×⍵-1}

ডায়ালেক্ট হ'ল ডায়ালগ এপিএল, ডিফল্ট সূচক উত্স সহ। দক্ষতার স্তরটি নিখুঁত নবাগত , সুতরাং কোনও এপিএল গুরু যদি এটি 10 টি অক্ষরে নামিয়ে আনতে চান, তবে আমার অতিথি হোন!

আপনি এটি এপিএলে অনলাইনে চেষ্টা করতে পারেন , কেবল এটি পেস্ট করুন এবং এর পরে একটি নম্বর রাখুন:

   {⍪(⊂' *'[1+m]),q÷⍨2×+/,m←(2|v)⌿(q←⍵*2)>v∘.+v←2*⍨⍵-⍳1+2×⍵-1} 13
      *************
   *******************
  *********************
 ***********************
*************************
*************************
*************************
*************************
 ***********************
  *********************
   *******************
      *************
2.98225

Question 22

এবং একটি বাশ এন্ট্রি: 181 186 190 অক্ষর

for((y=-(r=$1,r/2*2);y<=r;y+=2));do for((x=-r;x<=r;++x));do((x*x+y*y<r*r))&&{((++n));echo -n '*';}||echo -n " ";((x<r))||echo;done;done;((s=1000,p=n*2*s/r/r,a=p/s,b=p%s));echo $a.$b

যেমন চালানো bash py.sh 13

Question 23

পাইথন: 148 টি অক্ষর।

মূল পোস্টের জবাবে আমি যেমন উল্লেখ করেছি তেমনি নিয়মগুলির অপব্যবহার এবং পরীক্ষার কেসগুলিকে হার্ডকোড দেওয়ার ব্যর্থ (অর্থাত্ সংক্ষিপ্ত নয়) attempt আরও ভার্চুজের সাথে এটিকে গালি দেওয়া সহজ হতে পারে:

a=3.0,3.125,3.16
b="1","23","3677","47899"
r=input()
for i in b[r/3]+b[r/3][::-1]:q=1+2*int(i);print ' '*(int(b[r/3][-1])-int(i))+'*'*q
print a[r/5]

Question 24

বিসি: ~~165~~ , ~~127~~ , 126 অক্ষর

পাইথন সংস্করণের উপর ভিত্তি করে।

r=read()
for(i=-1;r*2>i+=2;scale=6){n=sqrt(2*i*r-i*i)
scale=0
n=1+n/1*2
j=r-n/2
t+=2*n
while(j--)" "
while(n--)"*"
"
"}
t/r/r

(শেষ লাইনের পরে নতুন লাইন বাদ দেওয়া যায় না))

Question 25

জাভাস্ক্রিপ্ট (স্পাইডারমনকি) - ১১৮ টি অক্ষর

এই সংস্করণটি স্টিনের কাছ থেকে ইনপুট গ্রহণ করে এবং বোনাস পরীক্ষার ক্ষেত্রে পাস করে

r=readline()
for(t=0,i=-r;i<r;i++)if(i%2){for(s='',j=-r;j<r;j++){t+=q=i*i+j*j<r*r
s+=q?'*':' '}print(s)}print(t*2/r/r)

ব্যবহার: cat 10 | js thisfile.js - jsbin পূর্বরূপ মুদ্রণ / পঠনের জন্য একটি উপন্যাস যুক্ত করে যাতে আপনি ব্রাউজারে দেখতে পারেন

জাভাস্ক্রিপ্ট: 213 163

আপডেট হয়েছে

r=10;m=Math;a=Array;t=0;l=document;for(i=-r;i<r;i+=2){w=m.floor(m.sqrt(r*r-i*i)*2);t+=w*2;l.writeln(a(m.round(r-w/2)).join(' ')+a(w).join('*'));}l.writeln(t/(r*r))

কেউই বলেনি যে এটি ব্রাউজারে সঠিকভাবে রেন্ডার করতে হবে - কেবল আউটপুট। যেমন আমি প্রাক ট্যাগগুলি মুছে ফেলেছি এবং এটি আরও অনুকূলিত করেছি। আউটপুটটি দেখতে আপনাকে উত্পন্ন উত্সটি দেখতে হবে বা সে অনুযায়ী আপনার স্টাইলশীট সেট করতে হবে। পাই এইভাবে কম নির্ভুল, তবে এটি এখন অনুমান করা যায়।

r=10;m=Math;a=Array;t=0;s='';for(i=-r;i<r;i++){w=m.floor((m.sqrt(m.pow(r,2)-m.pow(i,2)))*2);t+=w;if(i%2){z=a(m.round(r-w/2)).join(' ')+a(w).join('*');s+=z+'\n';}}document.write('<pre>'+(s+(t/m.pow(r,2)))+'</pre>')

স্বাক্ষরিত:

r=10;
m=Math;
a=Array;
t=0;
s='';
for(i=-r;i<r;i++){
    w=m.floor((m.sqrt(m.pow(r,2)-m.pow(i,2)))*2);
    t+=w;
    if(i%2){
    z=a(m.round(r-w/2)).join(' ')+a(w).join('*');
    s+=z+'\n';
    }
}
document.write('<pre>'+(s+(t/m.pow(r,2)))+'</pre>');

Question 26

জাভা: 234

class C{public static void main(String[] a){int x,y,s=0,r=Integer.parseInt(a[0]);for(y=1-r;y<r;y+=2){for(x=1-r;x<r;++x){boolean b=x*x+y*y<=r*r;s+=b?1:0;System.out.print(b?'*':' ');}System.out.println();}System.out.println(s*2d/r/r);}}

স্বাক্ষরিত:

class C{
    public static void main(String[] a){
        int x,y,s=0,r=Integer.parseInt(a[0]); 
        for(y=1-r;y<r;y+=2){
            for(x=1-r;x<r;++x) {
                boolean b=x*x+y*y<=r*r;
                s+=b?1:0;
                System.out.print(b?'*':' ');
            }
            System.out.println();
        }
        System.out.println(s*2d/r/r);
    }
}

Question 27

GAWK: ~~136~~ , ~~132~~ , ~~126~~ , 125 অক্ষর

পাইথন সংস্করণের উপর ভিত্তি করে।

{r=$1
for(i=-1;r*2>i+=2;print""){n=1+int((2*i*r-i*i)**.5)*2
t+=2*n/r/r
printf"%*s",r-n/2,""
while(n--)printf"%c","*"}print t}