fork download
copy 
  1. Interval extend [
  2. 	sum [^self first + self last * self size / 2]
  3. ]
  4.  
  5. | fn |
  6.  
  7. fn := [:N |
  8. 	((3 to: N-1 by: 3) sum + (5 to: N-1 by: 5) sum - (3*5 to: N-1 by: 3*5) sum - (9 to: N-1 by: 9) sum)
  9. ].
  10.  
  11. #(300000 1000000 123456789 52392500521600399351356349174446586983450782741955171098556507898779871325096 81340304960658949829048605343898074748693526364984423822460961155401988944367999613016438883571687846827769443739617707055232638191283495026289615702222182788574658309391713912039023956220354657317299153420226118949128545915432383828558593920321625926429046418867140014450097694225893790336121397039424427669) do: [:N | (N -> (fn value: N)) printNl]
Success #stdin #stdout 0.03s 335424KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
300000->15999800001
1000000->177777222224
123456789->2709613975342514
52392500521600399351356349174446586983450782741955171098556507898779871325096->487995397494381887662018071420232992295376910990875516472622018026693448269880988092183711767420164458421494813099739679016862860526679147801349886898903
81340304960658949829048605343898074748693526364984423822460961155401988944367999613016438883571687846827769443739617707055232638191283495026289615702222182788574658309391713912039023956220354657317299153420226118949128545915432383828558593920321625926429046418867140014450097694225893790336121397039424427669->1176221370860977593190531744986295704291256213295801543678784040006597685409856947202803333926649526653122547075560291684329674825561568720488683385745421665727226144354393848352578386985565841601435810608297741134440576497835108083240987461415514155994751275953161699153692084971652019255372815271459325027866526382160915314605225868266717362558968915129287793658342305378204311843407986509458035702286777106483255898763800650633705787846467565383685679623914073728492659697202167711220793800491315181370681899041608203770743340395813544841972448482457435114182340177118957124887596242739635498233860331566147512508
https://ideone.com/F6y8M2
language:
Smalltalk (gst 3.2.5)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!