daily pastebin goal
40%
SHARE
TWEET

Untitled

a guest Feb 13th, 2018 62 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. range = Range[4 10^6];
  2. Position[Mod[10^5 NestList[Mod[ 10^6 #, 1355297] &, 10^6,Length[#] - 1] - (54 # + 46), 1355297], 0] &[range]
  3. (* {{2331259}, {3776127}} *)
  4.    
  5. Compile`CompilerFunctions[] // Sort
  6.    
  7. fu = Compile[{{range, _Integer, 1}},Position[Mod[10^5 NestList[Mod[ 10^6    range, 1355297] &, 10^6,Length[range] - 1] - (54 range + 46), 1355297], 0]]
  8. (*Compile::cset: Variable Compile`Variable$630 of type
  9. {_Integer,0}    encountered in assignment of type {_Integer,1}. *)
  10.    
  11. Needs["CompiledFunctionTools`"]
  12. CompilePrint[fu]
RAW Paste Data
Top