Konvertieren von Python-Funktion in R Funktion

Question

Ich habe die folgende Python-Funktion,

import random 
import math 

deck = [2,3,4,5,6,7,8,9,10,10,10,10,11] 

def draw_card(deck): 
     card = deck.pop(random.sample(range(len(deck)), 1)[0]) 
     return(card) 

print(deck,'\n') 
my_draw = draw_card(deck) 
print(my_draw, '\n') 
print(deck, '\n') 

Die folgende Ausgabe ist,

[2, 3, 4, 5, 6, 7, 8, 9, 10, 10, 10, 10, 11] 

3 

[2, 4, 5, 6, 7, 8, 9, 10, 10, 10, 10, 11] 

Ich muss das R konvertieren, aber ich verstehe, gibt es keine Entsprechung Python list.pop Funktion in R. ich bin nicht besorgt über Zufallsprinzip aus, wie ich ein rep in R tun kann, und bin in der Lage durch die Zeichnung von Karte in R zu emulieren,

DrawCard <- function(card){ 
    card <- tail(deck,1) 
    return(card) 
} 

Auch ich kann die gleiche gezogene Karte um head(deck, -1) entfernen, aber ich weiß nicht, wie man die 2 in 1 Funktion wie in Python füttert, die sowohl den Kartenwert als auch das kürzere Deck zurückgibt.

Bitte helfen.

Danke, Lobbie

Answer 1

antworten

Ich schlage nicht vor, dass Sie das tun (eine Liste der Karte und das neue Deck ist eine bessere Idee der Rückkehr), aber Sie können die globalen deck Variable wie so die Funktion verändern haben:

draw_card <- function(deck){ 
    card <- tail(deck,1) 
    deck <<- head(deck, length(deck)-1) 
    return(card) 
} 

print(deck) 
# [1] 2 3 4 5 6 7 8 9 10 10 10 10 11 

print(draw_card(deck)) 
# [1] 11 

print(deck) 
# [1] 2 3 4 5 6 7 8 9 10 10 10 10 

Für Zufall Sampling (Danke an Ben Bolker) und eine Funktion, die mit jeder Deckvariable funktioniert:

draw_card <- function(deck){ 
    s <- sample(length(deck),size=1) 
    card <- deck[s] 
    n <- deparse(substitute(deck)) 
    assign(n, deck[-s], envir=globalenv()) 
    return(card) 
} 

Answer 2

Mit Ihrer Logik zurück, wie list

DrawCard <- function(deck){ 
    card <- tail(deck,1) 
    remain<-head(deck,9) 
    return(list(card,remain)) 
} 

cc<-1:10 
DrawCard(cc) 

Eine bessere Logik

sein kann

DrawCard <- function(deck){ 
    ind<-1:length(deck) 
    choose<-sample(ind,1) 
    card<-deck[choose] 
    remain<-deck[-choose] 
    return(list(card,remain)) 
} 

Appended: loop

sum=0 
ll<-length(cc) 
deck_rem<-cc 
for(x in 1:ll){ 

    a<-DrawCard(deck_rem) 
    deck_rem=a[[2]] 
    sum=sum+a[[1]] 
    print(a[[1]]) 
    print(a[[2]]) 
    print(sum) 

}