Вторая задача - расставить цифры от 2 до 9.
ЗАдачу дали в 4-ом классе, так что должно быть просто.
![Smile :-)](./images/smilies/smile.gif)
Рассуждения?perasperaadastra wrote:58 * 64 = 3712
92 * 53 = 4876
4-ый класс!perasperaadastra wrote:Да какие там рассуждения — я сказал, а компьютер выполнил. Он попробовал было порассуждать ("stack overflow"), но я integer на long заменил и все заработало как надо.
Code: Select all
library(gtools)
x <- c(1:8)
Y <- permutations(n=8,r=8,v=x,repeats.allowed=F)
a <- y[ ,1]*10+y[ ,2]
b <- y[ ,3]*10+y[ ,4]
c <- y[ ,5]*1000+y[ ,6]*100+y[ ,7]*10+y[ ,8]
d <- abs(A*B-C)
K <- cbind(a,b,c,d)
write.table(K, "mydata.txt", sep="\t")