25

এএসসিআইআই-তে কিউব আকারের ডাইয়ের সাথে সম্পন্ন হলে ডাইস টসের এলোমেলো ফলাফল দেখান।

$ dice

এর একটিতে ফলাফল হওয়া উচিত

-----
|   |
| o |
|   |
-----

-----
|o  |
|   |
|  o|
-----

-----
|o  |
| o |
|  o|
-----

-----
|o o|
|   |
|o o|
-----

-----
|o o|
| o |
|o o|
-----

-----
|o o|
|o o|
|o o|
-----

code-golf ascii-art random

— জোনাস এলফস্ট্রাম
সূত্র

4

আপনি এখানে মেট্রিক সংজ্ঞায়িত করেন নি। এটি একটি কোড গল্ফ হতে বোঝানো হয়? ধাঁধা ল্যাব চ্যাটে বা মেটাতে থাকা বালির বাক্সে সম্ভাব্য কাজগুলি নিয়ে আলোচনা করা সর্বদা মূল্যবান যাতে আপনি লাইভ হওয়ার আগে এই ধরণের প্রশ্নগুলির সমাধান করতে পারেন।

— ডিএমকেেকে

দুঃখিত, আমি ভেবেছিলাম মেট্রিক সবসময়ই অক্ষরের সংখ্যা? আমাকে চ্যাটের দিকে নির্দেশ করার জন্য এবং তারপরে মেটাতে বালির বাক্সের জন্য ধন্যবাদ। যদি এই প্রশ্নটি এর মুখে পড়ে তবে আমি এটি মুছে ফেলব। আমি এখনই এটি করতে ঘৃণা করি, যদি কেউ এরই মধ্যে ইতিমধ্যে কাজ শুরু করে।

— জোনাস এলফস্ট্রাম

আহ ... সাইটের নাম নোট করুন "প্রোগ্রামিং ধাঁধা এবং কোড গল্ফ" (এবং হ্যাঁ, আমি ভেবেছিলাম এটি আরও ভালভাবে অন্যভাবে স্ক্যান করেছে)। আপনি ওয়ান-লাইনার , কিং-অফ-দ্য হিলি টুর্নামেন্ট এবং কোড-চ্যালেঞ্জগুলি (অন্য সব কিছু, তবে আপনার জয়ের জন্য এখনও একটি উদ্দেশ্য মেট্রিক স্থাপন করার কথা রয়েছে ), তাই এটি বলা এবং যথাযথ প্রয়োগ করা প্রয়োজন ট্যাগ।

— ডিসেমেক

13

এক্সকেসিডি # 221 অনুসারে , alert('-----\n|o o|\n| |\n|o o|\n-----');একটি সঠিক প্রোগ্রাম।

— জিমিনপি

9

যদি আপনি অ্যাসিআই-আর্ট ট্যাগটি সরিয়ে থাকেন তবে আমি আমার 39char- সমাধান print("⚀⚁⚂⚃⚄⚅"(util.Random.nextInt(6)))(utf-art) দিতে পারি।

— ব্যবহারকারী অজানা

7

গল্ফস্ক্রিপ্ট, 56 টি অক্ষর

"-"5*n"|":|"o "1/:&6rand:§1<=" "&§3<=|n|&§5<=]&§2%=1$-1%

সমাধান এখানে পরীক্ষা করা যেতে পারে ।

— Ventero
সূত্র

25

পাইথন, ১১২ টি 110 টি চর

from random import*
r=randrange(6)
C='o '
s='-----\n|'+C[r<1]+' '+C[r<3]+'|\n|'+C[r<5]
print s+C[r&1]+s[::-1]

— কিথ র্যান্ডাল
সূত্র

6

অ্যারে সূচকগুলিতে সেই তুলনাগুলি সম্পূর্ণ চিত্তাকর্ষক!

— জোনাস এলফস্ট্রোম

2

পূর্বোক্ত! আমি পছন্দ করি আপনি কীভাবে ডাইয়ের প্রতিসাম্য ব্যবহার করেছেন :)

— সিস্টেম ডাউন

আপনি কি কিছু ব্যবহার করতে পারেন id(0)%7%6? এটি অভিন্ন বিতরণ হতে চলেছে না, তবে এটি উল্লেখযোগ্যভাবে খাটো ...

— ন্যাব

@ ন্যাব: এটি খুব এলোমেলো নয়। বিশেষত, রান থেকে রান করার ক্ষেত্রে এটি প্রায়শই একই রকম হয়, তাই এলোমেলো ডাইস রোলগুলি তৈরি করতে এটি খুব কার্যকর হবে না।

— কীথ র্যান্ডাল

11

রুবি 1.9, 80 84 টি অক্ষর

z=" o";$><<(s=?-*5+"
|#{z[2/~a=rand(6)]} #{z[a/3]}|
|"+z[a/5])+z[~a%2]+s.reverse

— Ventero
সূত্র

আমি +s.reverse

— জোনাস এলফস্ট্রোম

7

উইন্ডোজ পাওয়ারশেল, 89 93 96 97 101 119 টি অক্ষর

-join('-----
|{0} {1}|
|{2}{3}'-f'o '[$(!($x=random 6);$x-lt3;$x-ne5;$x%2)])[0..14+13..0]

— জোয়ি
সূত্র

5

পাইথন, 109 ইউনিকোড অক্ষর

#coding:u8
print u"鱸헓ȅ᪮ԅ᪅餠☏汁끝鐸즪聗K糉툜㣹뫡燳闣≆뤀⩚".encode("u16")[2:].decode("zlib").split("\n\n")[id(list())%7-1]

দ্রষ্টব্য: এটি এলোমেলো ফাংশন ব্যবহার করে না, সুতরাং এটি অন্যদের মতো এলোমেলো হবে না।

— আপনি
সূত্র

5

পার্ল, 74 অক্ষর rs

সাথে চালাও perl -M5.010।

$-=rand 6;$_="-----
|0 2|
|4";s/\d/$->$&?o:$"/ge;say$_,$-&1?$":o,~~reverse

(নোট করুন যে তালিকার নতুনলাইনগুলি স্ট্রিংয়ের অংশ, এবং কেবলমাত্র সুসংগঠনের জন্য sertedোকানো হয়নি))

আপনি যদি নিজেকে ভাবছেন যে হ্যাক $->$ অপারেশনটি কী করে, নিম্নলিখিত পঠন নোটগুলি সহায়ক হতে পারে:

ভেরিয়েবলটি $-স্বয়ংক্রিয়ভাবে তার নির্ধারিত মানটিকে একটি পূর্ণসংখ্যার সাথে কাটা করে।
ভেরিয়েবলটি $"একটি একক স্থানের পূর্বনির্ধারিত।
oএটি একটি খালি শব্দ (উপস্থাপন করা "o")।

— রুটির ঝুরি
সূত্র

4

প্রথমবারের গল্ফার

পাইথন, ১1১ টি চর

from random import*
n=randint(1,7)    
o,x='o '
a='-'*5
b=(x,o)[n>3]
d=(x,o)[n>5]
c=(x,o)[n>1]    
print a+'\n|'+c+x+b+'|\n|'+d+(x,o)[n%2]+d+'|\n|'+b+x+c+'|\n'+a

— সিস্টেম ডাউন
সূত্র

4

কমন লিস্প 170

(let*((r(random 6))(a "-----
|")(c "o")(d " ")(e "|
|")(f(concatenate 'string a(if(< r 1)d c)d(if(< r 3)d c)e(if(> r 4)c ))))(concatenate 'string f(if(evenp r)c d)(reverse f)))

মনে রাখবেন যে নিউলাইনগুলি তাৎপর্যপূর্ণ। এই নিরীহ "আধুনিক" ভাষার মতো, সাধারণ লিস্প সংক্ষিপ্ততার চেয়ে পাঠযোগ্যতার পক্ষে, সুতরাং আমাদের কাছে এই কাঠামোগত "কনটেনেটেট" স্ট্রিং ... "রচনা রয়েছে এবং একটি স্ট্রিংয়ে একটি চরিত্রের রেফারেন্স দেওয়ার কোনও সংক্ষিপ্ত উপায় নেই।

— ব্যথা ড
সূত্র

4

জাভাস্ক্রিপ্ট ( 169 168 141 137)

r=Math.random()*6|0;s='-----\n|'+(r>0?'o ':'  ')+(r>2?'o':' ')+'|\n|'+(r-5?' ':'o');alert(s+(r%2?' ':'o')+s.split('').reverse().join(''))

একেবারে ঠিক মতো দেখাচ্ছে না alertকারণ এটি স্থির-প্রস্থের ফন্ট নয়, তবে বিশ্রামটি নিশ্চিত করুন যে এটি সঠিক, বা <pre>ট্যাগ writelnপ্রেরণ করে এবং পরীক্ষা করে পরীক্ষা করুন :-)

প্রুফ: http://jsfiddle.net/d4YTn/3/ (কেবল জেএস 1.7- অনুগত ব্রাউজারগুলিতে কাজ করে যেমন এফএফ 2 +)

ক্রেডিট: Math@ মিনিটেক থেকে হ্যাক ট্রিক এবং @ কিথ থেকে ডাই প্রিন্ট লজিক।

সম্পাদনা করুন : @ Mathমিনিটেক থেকে কৌশলটি সরান কারণ এটি এটি দীর্ঘতর করেছে :-)

সম্পাদনা 2 : 17 টি অক্ষর সংরক্ষণ করুন। পাশা প্রতিসাম্যের সুবিধা গ্রহণের জন্য @ কিথের কাছ থেকে কৌশলটি ধার করুন। এলোমেলো সংখ্যাটি ইন্টে রূপান্তর করার জন্য কৌশল ব্যবহার করুন।

3 সম্পাদনা করুন : 1+1-6 থেকে 0-5 থেকে এলোমেলো নম্বর স্থানান্তর করতে 2 টি অক্ষর সংরক্ষণ করুন Remove ফলস্বরূপ, আমি আরও 2 টি অক্ষরে পরিবর্তন r%2-1করতে r%2এবং সেভ করতে পারি ।

4 সম্পাদনা করুন : jsfiddle আবার কাজ করছে। আপডেট হয়েছে :-)

— mellamokb
সূত্র

E4X! এবং আমি বিশ্বাস করতে পারি না যে Chrome এটি সমর্থন করবে না!

— রাই-

হেই, আমি আপনাকে শেষ পর্যন্ত পরাজিত করেছি :)

— রাই

দুটি চরিত্র, এখন, আপনার |0কৌশলটি ব্যবহার করে :-)

— রাই-

এটি আমার জন্য ক্রোমে কাজ করে।

— pimvdb

4

জাভাস্ক্রিপ্ট, 215 213 212 145 135

r=Math.random()*6|0;alert('-----\n|'+[r>2?'o o':r?'o  ':'   ',r%2?r>3?'o o':'   ':' o ',r>2?'o o':r?'  o':'   '].join('|\n|')+'|\n-----');

মেলামোকবকে বীট করুন, তবে আমি আমার আসল সমাধানটি সম্পূর্ণ পরিবর্তন করেছি changed আপনি যদি এটি দেখতে ভাল দেখতে চান তবে গুগল ক্রোম বা অন্য কিছু ব্যবহার করুন, এতে পরিবর্তন alertকরুন console.logএবং ভয়েইল করুন à

সম্পাদনা করুন: কিছু অক্ষর সংরক্ষণের জন্য মেলামোকব এর | 0 কৌশল ধার করা হয়েছে।

— Ry-
সূত্র

@ এমনিটেক: বিটিডাব্লু, আপনার M=Mathযে কৌশলটি আমি চুরি করতে চেয়েছিলাম তা আসলে একটি চরিত্রের আর

— মেল্লামব্যাক

@ মেল্লামোকব: আমি জানি, আমি মূলত ভেবেছিলাম যে আমি এটি আরও ব্যবহার করব ...

— রাই

@ মিনিটেক: আপনি দুটি চর সংরক্ষণ করতে পারবেন[s.substr(0,3),s.substr(3,3),s.substr(6,3)].join('|\n|')

— মেল্লামোকব

1

@ মেল্লামোকব: নাহ; sএকটি অ্যারে হয়। আমি আবার চালু করতে এবং আবার চেষ্টা করতে যাচ্ছি।

— রাই-

@ এমনিটেক: এখানে আমরা আবার যাই :-) প্রতিযোগিতার মাধ্যমে সেরা উত্তরের বিবর্তন। এখন আমি নীচে নেমেছি 137, তবে আপনি আমার একটি কৌশল ধার করতে পারেন এবং সম্ভবত 10 টি অক্ষর সংরক্ষণ করতে পারেন।

— মেল্লামোকব

3

পিএইচপি 119 ~~126~~ ~~128~~ ~~131~~ ~~188~~ ~~201~~ ~~213~~ ~~234~~ ~~239~~

<?$c=($r=rand()%6)%2?$r>4?'o ':'  ':' o';$b=$r>0?$r<3?'o  ':'o o':'   ';echo$a="-----\n|$b|\n|$c",substr(strrev($a),1);

— ওলেগ
সূত্র

?>আপনার 2 টি অক্ষর সংরক্ষণ করে সমাপ্তি বাদ দেওয়া যেতে পারে।

— রাই-

আপনি $rঅন্য অক্ষর সংরক্ষণের জন্য ঘোষণাকে ইনলাইন করতে পারেন । পরে স্থানটি echoবাদ দেওয়া যেতে পারে। আপনি $a128 এ পৌঁছে দিয়ে শুরুতেও ইনলাইন করতে পারেন line লাইনটি স্ট্রিংয়ের সাথে সরাসরি পালিয়ে না যাওয়ার পরিবর্তে \nআরও দুটি অক্ষর বাঁচায় s

— জোয়

3

সি - 215

#include <time.h>
#include <stdlib.h>
main(){char a[]=A,b[]=B,c=3,d=(srand(time(0)),rand()%6+1),e=d-2;if(d==1)a[5]=C;else{while(--e>-1)a[b[D[d-3]-48+e]-48]=C;a[0]=a[10]=C;}p(E);while(--c>-1)p("|%s|\n",a+c*4);p(E);}

সংকলন:

cl /DA="\"   \0   \0   \"" /DB="\"5282582468\"" /DC='o' /DD="\"0136\"" /DE="\"+---+\n\"" /Dp=printf dice.c

— user23241
সূত্র

1

কমান্ড-লাইনে fla সমস্ত পতাকাটি দিয়ে কি এই বাছাই করছে? আমি এটি / ডিএ / ডিবি / ডিসি .. জিনিসটি বুঝতে পারি না।

— মেল্লামব্যাক

আমার সংকলকটি /Dস্যুইচটি বুঝতে পারে না ... দয়া করে সংকলন কমান্ডের মধ্যে এলোমেলো সংজ্ঞা সংশোধন করে প্রতারণা করবেন না।

— FUZxxl

3

পাইথন 133

import random as R
i=R.randint(1,6)
a='   ';b='0 0'
A='-----\n|'+((a,'0  ')[i>1],b)[i>3]+'|\n|'
print A+((a,' 0 ')[i%2],b)[i>5]+A[::-1]

— 0b1t
সূত্র

3

এফ # - 165 161 টি অক্ষর

(System.Random()).Next 6|>fun x->[for y in[x>0;x%2=0;x>2;x=5]->if y then"o"else" "]|>fun[a;b;c;d]->printf"-----\n|%s %s|\n|%s%s%s|\n|%s %s|\n-----"a c d b d c a

— nharren
সূত্র

3

পাইথন 108 ~~114~~ ~~119~~ ~~121~~ ~~122~~ ~~129~~

Wtf! 1 ম সমাধান মত দেখাচ্ছে ?! তবে আমি ... ঠকাই না

108

import random as R
i=R.randint(1,6)
X=' 0'
A='-----\n|%s %s|\n|'%(X[i>1],X[i>3])+X[i>5]
print A+X[i%2]+A[::-1]

119

import random as R
i=R.randint(1,6)
X=' 0';a=X[i>5]
A='-----\n|%s %s|\n|%s|'%(X[i>1],X[i>3],a+X[i%2]+a)
print A+A[-6::-1]

— 0b1t
সূত্র

3

পার্ল - 111 103 101

$n=int rand 6;
($t="-----\n|0 1|\n|232|\n|1 0|\n-----\n")=~s/(\d)/5639742>>6*$1>>$n&1?o:$"/eg;
die$t;

— swilliams
সূত্র

1

ব্যবহার জন্য +1 dieপরিবর্তে print/say

— mbx

3

এপিএল (69)

5 5⍴(5⍴'-'),{⊃⍵↓' o|'}¨2,(⌽M),2,2,(N∊¨6(1 3 5)6),2,2,2,⍨M←3 6 1>⍨N←?6

— সামুদ্রিক
সূত্র

3

হাস্কেল, 154 162 167 172 অক্ষর

import System.Random
main=randomRIO(1::Int,6)>>=putStrLn. \x->let{h="-----\n|"++c(>1):' ':c(>3):"|\n|"++[c(>5)];c f|f x='o'|True=' '}in h++c odd:reverse h

এটি পাইথন হিসাবে প্রায় একই ধারণা ব্যবহার করে।

পঠনযোগ্য সংস্করণ:

import System.Random

main = do
    x <- randomRIO (1 :: Int, 6)
    putStrLn (render x)

render x = str ++ check odd ++ reverse str
  where
    str = concat
        [ "-----\n|"
        , check (> 1)
        , " "
        , check (> 3)
        , "|\n|"
        , check (> 5)
        ]
    check f = if f x then "o" else " "

— ল্যাম্বদা পরী
সূত্র

3

গল্ফস্ক্রিপ্ট 80 65

6rand):^;'-'5*n+:_[^6&0^4&^6=].^1&+-1%+3/{'|'\{'o'' 'if+}/'|'n}/_

প্রোগ্রামটি এখানে পরীক্ষা করা যেতে পারে

— ক্রিশ্চিয়ান লুপাস্কু
সূত্র

2

পিএইচপি 126 ~~127~~ ~~179~~

<?$x=($r=rand(1,6))>3?"o o":($r<2?"   ":"o  ");$z=$r>5?"o o":($r%2==0?"   ":" o ");$v="-----\n|$x|\n";echo"$v|$z|".strrev($v);

আরেকটি পিএইচপি সমাধান। আমি প্রায় একই সমাধানে এসেছি ওলেগের দ্বারা।

— আলবার্তো ফার্নান্দেজ
সূত্র

2

পাইথন (153)

এটি এখন পর্যন্ত ক্ষুদ্রতম জমা নয়, আমি কেবল ভেবেছিলাম এটি দেখতে সুন্দর লাগছে :)

import random as r
print"""-----
|%c %c|
|%c%c%c|
|%c %c|
-----"""%tuple(
r.choice([
"   o   ",
"o     o",
"o  o  o",
"oo   oo",
"oo o oo",
"ooo ooo"]))

— Quasimodo
সূত্র

2

প্রশ্ন (120 টি চর)

dice:{(`t`e`l`c`r`w!5 cut"-----|   ||o  || o ||  o||o o|")(,/)(`t;(`e`c`e;`l`e`r;`l`c`r;`w`e`w;`w`c`w;`w`w`w)(*)1?6;`t)}

ব্যবহার:

dice[]

— skeevey
সূত্র

2

সি, 168 164 163 অক্ষর

আমি পার্টিতে কিছুটা দেরি করলেও দুঃখিত, তবে যেহেতু এখনও কোনও উত্তর গৃহীত হয়নি, এবং কেবলমাত্র সি সি সমাধানটি কিছুটা দীর্ঘ ছিল, এখানে ...

#include<stdio.h>
main(){srand(time(0));char*o="O ",r=rand()%6,i=o[r<1],j=o[r<3],k=o[r<5];printf("-----\n|%c %c|\n|%c%c%c|\n|%c %c|\n-----\n",i,j,k,o[r&1],k,j,i);}

আপনি অন্তর্ভুক্তটিকে মুছে ফেলতে এবং আরও 18 টি অক্ষর সংরক্ষণ করতে পারেন তবে তা সতর্কতা ছাড়াই সংকলন করে না।

সম্পাদনা :
ব্যবহারকারী 23241 এর কমান্ড-লাইন কৌশলটি ব্যবহার করে , সংক্ষিপ্ততম সি কোড যা ফলাফল তৈরি করে (সংকলক সতর্কতা ছাড়াই) কেবল 12 টি অক্ষর:

#include I
M

কমপক্ষে যদি আপনি প্রতারণা করেন এবং সংকলিত করতে নিম্নলিখিত কমান্ড লাইনটি ব্যবহার করেন:

gcc -DI="<stdio.h>" -DM="main(){srand(time(0));char*o=\"O \",r=rand()%6,i=o[r<1],j=o[r<3],k=o[r<5];printf(\"-----\n|%c %c|\n|%c%c%c|\n|%c %c|\n-----\n\",i,j,k,o[r&1],k,j,i);}" dice.c -o dice

— মিঃ লিস্টার
সূত্র

2

সি, 140 অক্ষর

r,i,s;main(){srand(time(i=0));r=rand()%6;for(s=-1;i-=s;)putchar("\n|   |-o"[i>5?i==8&&r||i==10&&2<r||i==14&&4<r||i==15&&(s=1)&~r?7:i%6:6]);}

— বাচ্চা খরগোস
সূত্র

1

পিএইচপি: 1284

এটি আমার দ্বিতীয় কোডগল্ফ এবং কোডের পরিবর্তন এবং গেমিংয়ের মানদণ্ডের সাথে মিলে যাওয়ার মতো সংক্ষিপ্ততার জন্য আমি আসলেই লক্ষ্য রাখছিলাম না।

আপনি 4 পার্শ্বযুক্ত পাশা পাশাপাশি 6 পাশের জেনারেট করতে পারেন।

সম্ভবত পরে আমি এটি সংক্ষিপ্ত করে এটিকে আরও কিছুটা গতিশীল করব।

function draw_dice($numdice=1,$sides=4)
{
/* Verify acceptable parameters. */
if($sides<4){die("You must choose 4 sides or greater.");}
if($numdice<1){die("You must have at least one dice.");}
/* End verification */
$a=' ';
$b=' ';
$c=' ';
$d=' ';
$e=' ';
$f=' ';
$g=' ';
$h=' ';
$i=' ';
$j=' ';

switch($sides)
{
case $sides%2==0:
if($sides==4)
{
$ran=rand(1,$sides);
switch($ran)
{
case 1:
$e="o";
break;
case 2:
$a="o";
$j="o";
break;
case 3:
$b="o";
$g="o";
$j="o";
break;
case 4:
$a="o";
$c="o";
$g="o";
$j="o";
break;
}
echo "<div style='text-align:center;display:inline-block;'>";
echo " - <br/>";
echo "| |<br/>";
echo "|$a$b$c|<br/>";
echo "| $d$e$f |<br/>";
echo "|  $g$h$i$j  |<br/>";
echo "---------<br/>";
echo "</div>";

}

if($sides==6)
{
$ran=rand(1,$sides);
switch($ran)
{
case 1:
$e="o";
break;
case 2:
$a="o";
$i="o";
break;
case 3:
$a="o";
$i="o";
$e="o";
break;
case 4:
$a="o";
$c="o";
$g="o";
$i="o";
break;
case 5:
$a="o";
$c="o";
$g="o";
$i="o";
$e="o";
break;
case 6:
$a="o";
$c="o";
$d="o";
$f="o";
$g="o";
$i="o";
break;
}
echo "-----<br/>";
echo "|$a$b$c|<br/>";
echo "|$d$e$f|<br/>";
echo "|$g$h$i|<br/>";
echo "-----<br/>";
}

if($sides!==4&&$sides!==6)
{
die("Only 4 and 6 sided are supported at this time.");
}

break;

case $sides%2==1:
die("Must have even number of sides.");
break;
}

}

draw_dice(1,4);

আউটপুট 4 পার্শ্বযুক্ত:

    - 
   | |
  |o o|
 |     |
|  o  o  |
---------

আউটপুট 6 পার্শ্বযুক্ত:

-----
|o  |
| o |
|  o|
-----

— ঘটনা দিগন্ত
সূত্র

1

জাভাস্ক্রিপ্ট 220 বাইট

r=(1+Math.random()*6|0).toString(2).split("").reverse();b=r[1];c=r[2];s=[[b|c,0,c],[b&c,1&r[0],b&c],[c,0,b|c]];"-----\n|"+s.map(function(v){return v.map(function(w){return w?"o":" "}).join("")}).join("|\n|")+"|\n-----";

— eikes
সূত্র

1

রুবি, 134 132 119 118 117 112 111 চর,

জীবনের আমার দ্বিতীয় গল্ফ। আমি ম্যাজিক নম্বর ব্যবহার করেছি। কোন পরামর্শ দয়া করে?

r=?-*5+"
|"+((a=:ghklm[rand 6])?a.to_i(36).to_s(2).tr("10","o "):"    o").insert(3,"|
|")
$><<r+r[0,14].reverse

আউটপুট:

ice@distantstar ~/virt % ruby ./golf.rb
-----
|o o|
|   |
|o o|
-----
ice@distantstar ~/virt % ruby ./golf.rb
-----
|o o|
|o o|
|o o|
-----
ice@distantstar ~/virt % ruby ./golf.rb
-----
|   |
| o |
|   |
-----
ice@distantstar ~/virt %

— defhlt
সূত্র

1

ভিমস্ক্রিপ্ট - 169 চরারেক্টর

দ্রষ্টব্য যে এটি খাঁটি ভিম নয় কারণ ভিমের কোনও বিল্টিন র্যান্ডম নম্বর জেনারেটর নেই। অবশ্যই এটির জন্য এক্সটেনশনগুলি ডাউনলোড করা যেতে পারে, তবে যেহেতু আমি একজন ডায়ারহাইড লিনাক্স মানুষ, আমি ভেবেছিলাম কেন কেবল শেল পরিবেশের উপর নির্ভর করে না।

কোড

norm5a-^[YPo|   |^[YPP
let x=system('echo $RANDOM')%6+1
if x<2
norm jllro
el
norm lrolljj.k
if x>3
norm k.hjj
en
if x>2
norm h.k
en
if x>5
norm .l
en
if x>4
norm l.
en
en

ব্যাখ্যা

প্রথম লাইনটি "বক্স" তৈরি করে যা ডাই প্রতিনিধিত্ব করে।
দ্বিতীয় লাইনটি পরিবেশ থেকে একটি এলোমেলো সংখ্যা নিয়ে আসে এবং মডিউলার গাণিতিক ব্যবহার করে এটি পাশের জন্য একটি বৈধ সংখ্যা হতে বাধ্য করে।
অবশিষ্ট লাইনে ডাই মুখ ভর্তি প্রায় সরাতে oএর। নোট করুন যে এটির অর্থ সর্বনিম্ন অক্ষরের জন্য অপ্টিমাইজ করা হয়েছে, ন্যূনতম গতিবিধি নয় (অর্থাত্ আমি যদি ম্যানুয়ালি এটি ifকরতাম my সমস্ত কিছু আমার মাথায় করছিল ) তবে কীস্ট্রোকের পরিবর্তে দ্রুততর উপায়গুলি থাকতে পারে )।
সর্বদা হিসাবে, ^আক্ষরিক ^নয় তবে একটি পালানোর ক্রমের ইঙ্গিত।

পরীক্ষামূলক

এতে পরিবর্তন RANDOMকরুন DICEVALUE, এতে উইমস্ক্রিপ্ট কোডটি সংরক্ষণ করুন dice.vim, তারপরে এই শেল স্ক্রিপ্টটি চালান, আপনি যা যা নম্বর পরীক্ষা করতে চান সেটিকে যুক্তি হিসাবে প্রদান করুন:

#!/bin/sh
for DICEVALUE in $@; do
    export DICEVALUE
    vim -S dice.vim
done

— Kazark
সূত্র

1

গণিত 166 161 146 143 অক্ষর

a="O  ";b=" O ";c="  O";d="   ";e="O O";RandomInteger@{1, 6}/.Thread@Rule[Range@6,{{d,b,d},{a,d,c},{a,b,c},{e,d,e},{e,b,e}, {e,e,e}}]//MatrixForm

নমুনা আউটপুট:

পাঁচ

যদি ম্যাট্রিক্স ব্রেসেস আপত্তিজনক হয়, আপনি কোডটি MatrixFormদিয়ে প্রতিস্থাপন করতে পারেন TableForm।

— DavidC
সূত্র

1

পিএইচপি 5.4, 107 বাইট

<?$r=rand(1,6);$d=[' ','o'];$o='+---+
|'.$d[$r>1].' '.$d[$r>3].'|
|'.$d[$r>5];echo$o.$d[$r%2].strrev($o);

১০২ বাইট *

<?$r=rand(1,6);$d=' o';$o='+---+
|'.$d[$r>1].' '.$d[$r>3].'|
|'.$d[$r>5];echo$o.$d[$r%2].strrev($o);

** দুর্ভাগ্যক্রমে, 102 বাইট সংস্করণ স্ট্রিংটিকে সূচীকরণ boolকরার intসময় কাস্টিংয়ের কারণে বিজ্ঞপ্তিগুলি জারি করে $d। তা ছাড়া, এটি দুর্দান্ত কাজ করে *

— ড্যান লাগেজ
সূত্র

বাইট গণনা যথাক্রমে 105 এবং 100 বলে মনে হচ্ছে।

— 12Me21

আহ, আমি অবশ্যই নতুন লাইনের জন্য জবাবদিহি করেছি।

— ড্যান লগ

এএসসিআইআই-তে ডাইস ফলাফল আঁকুন

গল্ফস্ক্রিপ্ট, 56 টি অক্ষর

পাইথন, ১১২ টি 110 টি চর

রুবি 1.9, 80 84 টি অক্ষর

উইন্ডোজ পাওয়ারশেল, 89 93 96 97 101 119 টি অক্ষর

পাইথন, 109 ইউনিকোড অক্ষর

পার্ল, 74 অক্ষর rs

পাইথন, ১1১ টি চর

কমন লিস্প 170

জাভাস্ক্রিপ্ট ( 169 168 141 137)

জাভাস্ক্রিপ্ট, 215 213 212 145 135

এফ # - 165 161 টি অক্ষর

পার্ল - 111 103 101

এপিএল (69)

হাস্কেল, 154 162 167 172 অক্ষর

গল্ফস্ক্রিপ্ট 80 65

পাইথন (153)

প্রশ্ন (120 টি চর)

সি, 168 164 163 অক্ষর

সি, 140 অক্ষর

পিএইচপি: 1284

আউটপুট 4 পার্শ্বযুক্ত:

আউটপুট 6 পার্শ্বযুক্ত:

জাভাস্ক্রিপ্ট 220 বাইট

রুবি, 134 132 119 118 117 112 111 চর,

ভিমস্ক্রিপ্ট - 169 চরারেক্টর

কোড

ব্যাখ্যা

পরীক্ষামূলক

গণিত 166 161 146 143 অক্ষর

পিএইচপি 5.4, 107 বাইট