Advertisement
Guest User

Conjecture de syracus (TVE)

a guest
Nov 19th, 2016
78
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
F# 0.88 KB | None | 0 0
  1. Main Class Conjecture
  2.     #Include : <TVE_ClassPath>(Console.tve)
  3.     #GC_CollectAfterExecution : False
  4.     //> GUI :
  5.     Console_Initialize
  6.     //> Vars :
  7.     Var : L1*0*Total*<Null>*ElapsedT*0
  8.     //>
  9.     Function : Main*9*12
  10.     /> PrintLn : Give Number :
  11.     /> L1 : <ReadLn>
  12.     /> ElapsedT : <App_ElapsedTime_Ms>
  13.     /> LoopC : Tester*<8>*14*15
  14.    
  15.     /> If : <L1>*=*1*22*29
  16.     /> If : _(<L1>;%;2)*=*0*17*18*Else*19*20
  17.    
  18.     /> Total : <S_Combine>(<Total>;<Char_CrLf>;<L1>;-Pair)
  19.     /> L1 : <I_Parse>(_(<L1>;/;2))
  20.     /> Total : <S_Combine>(<Total>;<Char_CrLf>;<L1>;-InPair)
  21.     /> L1 : <I_Parse>(_(<L1>;x;3;+;1))
  22.    
  23.     /> Console_Clear
  24.     /> Total : <S_Combine>(<Total>;<Char_CrLf>;1;-InPair)
  25.     /> ElapsedT : _(<App_ElapsedTime_Ms>;-;<ElapsedT>)
  26.     /> PrintLn : <S_Combine>(Finished in : ';<ElapsedT>;'Ms, This is all;<Char_CrLf>;<Total>;<Char_CrLf>)
  27.     /> Total : <Null>
  28.     /> Main
  29.     /> GC_Collect
  30.     /> LoopC : Tester*Exit
  31. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement