У стандартних кубиках (гинуть) числа розташовані так, що протилежні грані додають до семи. Напишіть найкоротшу можливу програму на бажаній мові, яка виводить випадковий кидок з наступним 9 випадковими накидами. Перекидання - це чверть обороту кісток, наприклад, якщо кістка стоїть перед 5, усі можливі відливи 1,3,4 та 6.
Приклад бажаного виходу:
1532131356
Відповіді:
Ви , можливо , запитаєте замінити printз alertабо що - то іншим, в залежності від середовища JavaScript.
for(C=L=T=0;C++<10;print(L=T))while(!(T-L&&T+L-7))T=Math.random()*6+1|0
Баш
#/!bin/bash
f=`expr $RANDOM % 6`
f=`expr $f + 1`
printf "$f"
for ((i=0; i<9; i++))
do
((bad=7-$f))
next=`expr $RANDOM % 6`
next=`expr $next + 1`
while [ $next -eq $bad ] || [ $next -eq $f ]
do
next=`expr $RANDOM % 6`
next=`expr $next + 1`
done
printf "$next"
f=$next
done
зразок коду: http://ideone.com/CCfro
((var=expression))дуже приємне - я думав, що найкоротший шлях: var=$((expression))Але чому ти використовуєш це колись і витрачаєш тонни символів на expr на задній план?
for(i in 0:9)cat(F<-sample(setdiff(1:6,c(F,7-F)),1))
for ((i = 10, f = RANDOM% 6 + 1; i -;)) do printf $ f ((n = RANDOM% 4 + 1, m = f <4? f: 7-f, f = n <m || ++ n <7-m? n: n + 1)) зроблено
Ключова ідея полягає в тому, що для вибору випадкового числа в [1, x], яке не дорівнює y, ви можете вибрати випадкове число в [1, x-1], а потім збільшити, якщо це> = y. Для цієї проблеми ми хочемо випадкове число в [1,6], яке не дорівнює f або 7-f. Ми повинні зробити два тести в порядку min (f, 7-f), max (f, 7-f).
Якщо припустити, що спочатку порожнє середовище може зберегти 2 символи, не ініціалізуючи i та змінивши стан циклу на i++<10
Сильно гольфували з відповіді Амана ЗееК Верми:
для ((i = 10, f = 0; i -;)) робити для ((n = f; n == f || n + f == 7; f = СЧАСТЬ% 6 + 1)) зробіть: зроблено printf $ f зроблено
NB, певно, його можна зменшити на 5 символів, змінивши перший рядок на, for((;i++<10;))але це робить припущення, які не завжди є дійсними. Він би працював нормально в ideone, але хтось, який працює з оболонки, міг мати iабо fекспортувати щось не нульове.
man bash, я рекомендую. Одного разу я прочитав його обкладинку, щоб обкладати, і просто розпливчасте уявлення про те, що можна і чого варто шукати, мені добре послужило.
-join(0..9|%{($d=1..6-ne(7-$d)-ne$d|random)})
Насправді тривіально. Я генерую список можливих рулонів з кістки, 1..6а потім вибираю лише ті, які не дорівнюють семи мінусам останнього, а потім лише ті, що не дорівнюють останньому. З решти списку я вибираю випадковий предмет і присвоюю його $d. Оскільки $dспочатку трактується так, як 0він котиться нормальним вмирати перший раз.
Тестовий сценарій:
for($i=0;$i-lt20;$i++){
$o=@(./tipping.ps1)
if ($i-gt0-and$o-eq$o2) { throw "Must have random output" }
if ($o.count-ne1) { throw "Must only have one line of output" }
if ($o[0]-match'[^1-6]'){ throw "Invalid characters" }
if($o[0].length-ne10){ throw "Wrong length: $($o[0].length)" }
$r=[char[]]($o[0])|%{$_-48}
for ($x=1;$x-lt$r.count;$x++){
if ($r[$x-1]+$r[$x]-eq7) { throw "Not a tipping: $($r[$x-1]) and $($r[$x])" }
}
$o2=$o
}
Історія:
The term 'random' is not recognized as a cmdlet, function, operable program, or script file. Verify the term and try again.
Get-RandomКомандлет не існує в v1.
Це має працювати, але, на жаль, випадковий генератор J застрягає після 3-ї ітерації:
a=:>:i.6
f=:a#~1-(+&(a=])7&-)
((,(?4)&{@f@(_1&{))^:9)>:?6
6 4 5 4 5 4 5 4 5 4
(?4)як правило, прокручується один раз і трактується як константа для наступних ітерацій, якщо ви не обережні навколо цього. Я працював навколо цього за допомогою (?@4:)подібної конструкції.
(0..9).reduce([]){|m|m<<((1..6).to_a-[d=m[-1]||0,7-d]).shuffle[0]}
>:(?@4:{(i.6)-.],5&-)^:(<10)?6
6 2 3 5 4 2 4 1 3 6
Пояснення (читати справа наліво):
?6 повертає випадкове число між 0 і 5^:(<10)застосовує функцію 9 разів, накопичуючи результати по дорозі. Функція:?@4:{(i.6)-.],5&-
] , 5&- повертає масив вхідного числа та його доповнення до 5 (ми обробляємо числа на основі 0, тож сума протилежних граней дорівнює 5)(i. 6) -. видаляє їх з повного набору цілих чисел 0 до 5. Залишилися всі дійсні позиції після однієї операції перекидання з позиції введення.?@4: { підбирає одного з тих, хто навмання.>: збільшує всю послідовність, щоб повернути фігури до інтервалу від 1 до 6.16 2f 25 08 41 20 17 30 16 2f 31 31 25 09 19 32
Ось як це працює
16 2f 25 # make range from 1 to 6 and push random element
08 # start block
41 # duplicate top of stack twice
20 17 30 # negate top of stack and add 7
16 2f # push range from 1 to 6
31 31 # do set-wise difference with each of the two previous numbers
25 # push a random element from the list
09 # end block
19 32 # repeat block 9 times
Два нових рядки необхідні і включаються в число символів як один символ кожен.
RANDOMIZE:FOR I=0TO 9
1N=INT(RND*6)+1:IF L=N OR L+N=7THEN 1
?N:L=N:NEXT
For(I,1,9
Ans→X
Repeat Ans≠X and Ans≠7-X
randInt(1,6
End
Disp Ans
End
Нудне рішення, але воно коротше попереднього перегляду. Я скористаюсь тим, що на свіжому калькуляторі Ansініціалізується до нуля.
v->{int d=(int)(Math.random()*6+1),i=10,p;String r=""+d;for(;i-->0;r+=d)for(p=d;p==d|p+d==7;d=(int)(Math.random()*6+1));return r;}Як повна програма з багатослівним основним методом, це буде 178 байт :
interface M{static void main(String[]a){int d=(int)(Math.random()*6+1),i=10,p;String r=""+d;for(;i-->0;r+=d)for(p=d;p==d|p+d==7;d=(int)(Math.random()*6+1));System.out.print(r);}}Пол-порт @AmanZeeKVerma Баш відповіді «s .
Пояснення:
v->{ // Method with empty unused parameter and String return-type
int d=(int)(Math.random()*6+1),
// Random dice-roll 1-6
i=10, // Counter-integer, starting at 10
p; // Temp integer to store new side
String r=""+d; // Result-String, starting at the first dice-roll
for(;i-->0; // Loop (1) 10 times:
r+=d) // After every iteration, append the result with a random side
for(p=d; // Set the new side to the current side
p==d // Loop (2) as long as the new side and current side are the same
|p+d==7; // or as long as both combined are exactly 7:
d=(int)(Math.random()*6+1)
// Set the new side to a random side 1-6
); // End of loop (2)
// End of loop (1) (implicit / single-line body)
return r; // Return the result-String
} // End of methoda=randi(6)
for i=1:9;b=1:6;b([a,7-a])=[];a=b(randi(4))
end
Я радий, що я міг продемонструвати xрандомізацію кодового вказівника <<>, оскільки не пам'ятаю, як бачив це тут.
a&0 v
/2v
1x3v
>x< <<
6x4v
\5v ~
:{:/ ^?=}
:{:/ ^?=7+}
:~$<^&;!?:-1&n
Ви можете спробувати його на цьому інтерпретаторі (вставити код, надіслати, запустити).
c(3,5,1,4,2,6)[(sample(1:6,1)+cumsum(sample((-2:2)[-3],9,T)))%%6+1]Є відповідь гольфіста R, але це, на мій погляд, відрізняється від поданих відповідей.
c(3,5,1,4,2,6) #A dice and its facets
(sample(1:6,1) #Initial dice roll
+cumsum(sample((-2:2)[-3],9,T))) #9 tippings in c(-2,-1,1,2)
%%6+1 #converts to values in [0,6]
[ ]#6LΩUTFX?6LʒDXÊsX+7Ê*}ΩU
Однозначно можна пограти в гольф, але наразі я цього не бачу ..
Пояснення:
6LΩ # Pick a random value from the range [1,6]
# i.e. [1,2,3,4,5,6] → 3
U # Save this random value in variable `X`
TF # Loop 10 times:
X? # Print `X` without newline to STDOUT
6Lʒ } # Create a range [1,6] again, and filter it by:
DXÊ # Check if the current value is not equal to `X`
# i.e. 1 and 3 → 1 (truthy)
# i.e. 3 and 3 → 0 (falsey)
sX+ # Sum the current value with `X`
# i.e. 1 and 3 → 4
# i.e. 3 and 3 → 6
7Ê # And check if it's not equal to 7
# i.e. 4 and 7 → 1 (truthy)
# i.e. 6 and 7 → 1 (truthy)
* # If both checks are truthy, keep it in the filtered list
# i.e. 1 and 1 → 1 (truthy)
# i.e. 0 and 1 → 0 (falsey)
Ω # Pick a random value from the filtered list
# i.e. [1,2,5,6] → 1
U # And save it in variable `X` for the next iteration of the loop