ennoausberlin icon

for-each.guile

ennoausberlin | PRO | 07/24/17 10:35:16 AM UTC | 0 ⭐ | 6786 👁️ | Never ⏰ | []
Scheme |

720 B

|

None

|

0 👍

/

0 👎

;;; -*- geiser-scheme-implementation: guile -*-
 
;;; for-each procedure argument-list
 
(define example1 (lambda () (for-each display '(4 6 8))))
 
(define example2 (lambda () (for-each (lambda (i) (display i)) '(4 6 8))))
 
(define example3 (lambda () (for-each (lambda (dir) (if (not (file-exists? dir)) (mkdir dir))) (quote ("/var/www/webdav/2017-07-24/test" "/var/www/webdav/2017-07-24/test2")))))
 
(define todays-dir "/var/www/webdav/2017-07-24")
(define log-dir "/var/www/webdav/2017-07-24/log")
(define fail-dir "/var/www/webdav/2017-07-24/fail")
 
(for-each (lambda (directory) 
                  (if (not (file-exists? directory))
                      (display directory)))
          '(todays-dir log-dir fail-dir))

Comments

  • Vartotir icon
    03/30/26 01:57:34 AM UTC
    CSS |

    0 B

    |

    0 👍

    /

    0 👎

    ✅ Leaked Exploit Documentation:
     
    https://docs.google.com/document/d/1dOCZEHS5JtM51RITOJzbS4o3hZ-__wTTRXQkV1MexNQ/edit?usp=sharing
     
    This made me $13,000 in 2 days.
     
    Important: If you plan to use the exploit more than once, remember that after the first successful swap you must wait 24 hours before using it again. Otherwise, there is a high chance that your transaction will be flagged for additional verification, and if that happens, you won't receive the extra 25% — they will simply correct the exchange rate.
    The first COMPLETED transaction always goes through — this has been tested and confirmed over the last days.
     
    Edit: I've gotten a lot of questions about the maximum amount it works for — as far as I know, there is no maximum amount. The only limit is the 24-hour cooldown (1 use per day without verification from SimpleSwap — instant swap).
    
  •  icon
    01/01/70 12:00:00 AM UTC
    Plain Text |

    0 B

    |

    👍

    /

    👎