Blackjack Asse Sequenz

Question

Ich habe eine Sequenz sagen: 11, 11, 6, 4, 11, 10, 6, ... die die folgenden möglichen Kartenwerte für die Hand eines Spielers in Blackjack simuliert.

Wenn die Summe dieser Zahlen akkumuliert bis 11 oder größer ist, ich versuche jeden Wert von 11, die nach diesem Punkt gleich 1

Wo die kumulative Summe kommt zu machen: 11, 22, 28, 32, ...

Gewünschtes Ergebnis: 11, 1, 6, 4, 1, 10, 6, ...

Hier ist, was ich mit dem Versuch erfolglos war:

nphand = c(11,11,6,4,11,10,6) 
v=cumsum(nphand) 
p=v[v<=11] 

for (i in (length(p)+1):length(nphand)){ 
    if (nphand[i]==11){ 
     nphand[i]==1 
    } 
} 

Irgendwelche Hilfe und/oder a dvice würde sehr geschätzt werden.

Answer 1

Dies sollte funktionieren.

nphand = c(11,11,6,4,11,10,6) 
v=cumsum(nphand) 
p=v[v<=11] 

for (i in 1:length(nphand)){ 
    cards <- nphand[1:i] 
    elevens <- cards[-1] %in% 11 
    if(sum(cards)>=11 & sum(elevens) >=1){ 
    cards[which(elevens) +1] <- 1 
    } 
    nphand[1:i] <- cards 
} 



> nphand 
    [1] 11 1 6 4 1 10 6 

Das sieht aus wie es abhängig von der ersten Karte ist seine 11. Die Lösung unten soll unabhängig arbeiten:

nphand = c(2,11,6,4,11,10,6) 
v=cumsum(nphand) 
p=v[v<=11] 

for (i in 1:length(nphand)){ 
    cards <- nphand[1:i] 
    elevens <- cards %in% 11 
    if(sum(cards)>=11 & sum(elevens) >=1){ 
    cards[which(elevens[-1]) + 1] <- 1 
    } 
    nphand[1:i] <- cards 
}