Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
30
Task/Hailstone-sequence/ERRE/hailstone-sequence.erre
Normal file
30
Task/Hailstone-sequence/ERRE/hailstone-sequence.erre
Normal file
|
|
@ -0,0 +1,30 @@
|
|||
PROGRAM ULAM
|
||||
|
||||
!$DOUBLE
|
||||
|
||||
PROCEDURE HAILSTONE(X,PRT%->COUNT)
|
||||
COUNT=1
|
||||
IF PRT% THEN PRINT(X,) END IF
|
||||
REPEAT
|
||||
IF X/2<>INT(X/2) THEN
|
||||
X=X*3+1
|
||||
ELSE
|
||||
X=X/2
|
||||
END IF
|
||||
IF PRT% THEN PRINT(X,) END IF
|
||||
COUNT=COUNT+1
|
||||
UNTIL X=1
|
||||
IF PRT% THEN PRINT END IF
|
||||
END PROCEDURE
|
||||
|
||||
BEGIN
|
||||
HAILSTONE(27,TRUE->COUNT)
|
||||
PRINT("Sequence length for 27:";COUNT)
|
||||
MAX_COUNT=2
|
||||
NMAX=2
|
||||
FOR I=3 TO 100000 DO
|
||||
HAILSTONE(I,FALSE->COUNT)
|
||||
IF COUNT>MAX_COUNT THEN NMAX=I MAX_COUNT=COUNT END IF
|
||||
END FOR
|
||||
PRINT("Max. number is";NMAX;" with";MAX_COUNT;"elements")
|
||||
END PROGRAM
|
||||
Loading…
Add table
Add a link
Reference in a new issue