f=0
sum=0
for i in range(1,101):
for j in range(1,i+1):
if(i%j==0):
f=f+1
if(f==2):
sum=sum+i
print i
f=0
print sum
В ответ на ваш комментарий:
На самом деле, я бы хотел его распространять, но с сохранением секретности скриптов и алгоритмов, есть ли способ зашифровать этот или любой другой способ достижения этой цели?
blockquote>Вы можете (сорт) сделать это, сохранив функции с помощью
save()
. Например, вот функцияf()
, которую вы хотите сохранить в секрете:f <- function(x, y) { return(x + y) }
Сохраните ее где угодно:
save(f, file = 'C:\\Users\\Joyce\\Documents\\R\\Secret.rda')
И если вы хотите использовать функцию:
load("C:\\Users\\Joyce\\Documents\\R\\Secret.rda")
Я бы сохранил все мои функции в отдельных файлах, поместил их в папку и имел один простой старый .R-скрипт, загружающий их все и выполняющий что угодно. Застегивайте все это и распространяйте его кому бы то ни было. Может быть, даже скомпилировать его в пакет. Эффективно все это было бы только для чтения.
Это решение не так уж велико. Вы все еще можете видеть функцию в R, набрав имя функции, чтобы она не была скрыта в этом смысле. Но если вы откроете файлы .rda, их содержимое будет искажено. Все зависит от того, насколько опытные получатели кода имеют R.