fork download
copy 
  1. DECLARE FUNCTION muffy (n)
  2. DECLARE FUNCTION puffy ()
  3. DECLARE FUNCTION zuffy (n)
  4.  
  5. A$ = CHR$(78) + CHR$(32) + CHR$(52) + CHR$(55) + CHR$(248) + CHR$(50) + CHR$(54) + CHR$(46)
  6. B$ = CHR$(69) + CHR$(32) + CHR$(48) + CHR$(55) + CHR$(248) + CHR$(52) + CHR$(54) + CHR$(46)
  7. PRINT "Den Schatz findest du an folgenden Koordinaten: "
  8. PRINT A$ + LTRIM$(STR$(INT(muffy(49) * 100) + 432))
  9. PRINT B$ + LTRIM$(STR$(INT(puffy * 100) + 593))
  10.  
  11. FUNCTION muffy (n)
  12.     IF (n < 1) THEN
  13.         muffy = 1
  14.     ELSE
  15.         muffy = (muffy(n - 1) + (1 / zuffy(n)))
  16.     END IF
  17. END FUNCTION
  18.  
  19. FUNCTION puffy
  20.    f = 1
  21.    s = 1
  22.    FOR n = 3 TO 42078 STEP 2
  23.    IF f = 1 THEN
  24.     f = 0
  25.     s = s - 1 / n
  26.   ELSE
  27.     f = 1
  28.     s = s + 1 / n
  29.   END IF
  30.   NEXT n
  31.   puffy = s * 4
  32. END FUNCTION
  33.  
  34. FUNCTION zuffy (n)
  35.     IF (n < 1) THEN
  36.         zuffy = 1
  37.     ELSE
  38.         zuffy = zuffy(n - 1) * n
  39.     END IF
  40. END FUNCTION
Success #stdin #stdout #stderr 0s 5320KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
Error: near line 1: near "DECLARE": syntax error
https://ideone.com/EUYCZu
language:
SQLite (sqlite 3.27.2)
created:
15 days 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!