SYZYGY-DEV333

#include <stdio.h>
#include <stdlib.h>

// Copyright (c) 2016, SYZYGY-DEV333
// All rights reserved.
// Licensed under SPL 1.0 [splicense.pen.io]

int menu();
void lista_processos();
void mata_processo_nome();

SYZYGY-DEV333

Simple Permissive License 1.0
[bit.ly/splicense]

Copyright (c) [year], [holder]
All rights reserved.

Redistribution and use in source or compiled forms, with or
without modification, are permitted provided that the following
conditions are met:

SYZYGY-DEV333

-,+[                         Read first character and start outer character reading loop
    -[                       Skip forward if character is 0
        >>++++[>++++++++<-]  Set up divisor (32) for division loop
                               (MEMORY LAYOUT: dividend copy remainder divisor quotient zero zero)
        <+<-[                Set up dividend (x minus 1) and enter division loop
            >+>+>-[>>>]      Increase copy and remainder / reduce divisor / Normal case: skip forward
            <[[>+<-]>>+>]    Special case: move remainder back to divisor and increase quotient
            <<<<<-           Decrement dividend
        ]                    End division loop
    ]>>>[-]+                 End skip loop; zero former divisor and reuse space for a flag

SYZYGY-DEV333

/||||||//|||||||//|//|||//||//||||//|||||||//|//|||//||//||||//|||||||//|//|||//||//||||/
/|||||||//|//|||//||//||||//|||||||//|//|||//||//||||//|||||||//|//|||//||//||||//|||||||/
/|//|||//||//||||//|||||||//|//|||//||//||||//|||||||//|//|||//||//||||//|||||||//|//|||/
/||//||||//|||||||//|//|||//||//||||//|||||||//|//|||//||//||||//|||||||//|//|||//||//||||/
/|||||||//|//|||//||//||||//|||||||//|//|||//||//||||//|||||||//|//|||//||//||||//|||||||/
/|//|||//||//||||//|||||||//|//|||//||//||||//|||||||//|//|||//||//||||//|||||||//|//|||/
/||//||||//|||||||//|//|||//||//||||//|||||||//|//|||//||//||||//|||||||//|//|||//||//||||/
/|||||||//|//|||//||//||||//|||||||//|//|||//||//||||//|||||||//|//|||//||//||||//|||||||/
/|//|||//||//||||//|||||||//|//|||//||//||||//|||||||//|//|||//||//||||//|||||||//|//|||/
/||//||||//|||||||//|//|||//||//||||//|||||||//|//|||//||//||||//|||||||//|//|||//||/

SYZYGY-DEV333

@echo
set "host=8.8.8.8"

:loop
ping -n 1 "%host%" | findstr /r /c:"[0-9] *ms"

if %errorlevel% == 0 (
    ipconfig /all
    echo Success!
    msg * Success!

SYZYGY-DEV333

Number extend [
    nthRoot: n [
        |x0 m x1|
        x0 := (self / n) asFloatD.
        m := n - 1.
        [true] whileTrue: [
            x1 := ((m * x0) + (self/(x0 raisedTo: m))) / n.
            ((x1 - x0) abs) < ((x0 * 1e-9) abs)
                ifTrue: [ ^ x1 ].
            x0 := x1.

SYZYGY-DEV333

Object subclass: Conversion [
    isOperator: c [
        (c isAlphaNumeric) ifFalse: [ ^true ].
        (c isAlphaNumeric) ifTrue: [ ^false ].
    ]
    
    getPriority: char [
        (char = $-) ifTrue: [ ^1 ].
        (char = $+) ifTrue: [ ^1 ].
        (char = $/) ifTrue: [ ^2 ].

SYZYGY-DEV333

package main
 
import (
    "fmt"
    "math"
    "bytes"
    "encoding/binary"
)
 
type testCase struct {

SYZYGY-DEV333

(define (replace source target replacement)
  (cond ((null? source)'())
        ((equal? source target) replacement)
        (else (let ((next (car source))
                    (rest (cdr source)))
                (cons (if (not (list? next))
                          next
                          (replace next target replacement))
                      (replace rest target replacement))))))
                    

SYZYGY-DEV333

(define (lambda-to-ski f)
  (match f
    [`(lambda (,a) (lambda (,b) ,c)) (lambda-to-ski `(lambda (,a) ,(lambda-to-ski `(lambda (,b) ,c))))]
    [`(lambda (,a) (,exp1 ,exp2)) `((s ,(lambda-to-ski `(lambda (,a) ,exp1))) ,(lambda-to-ski `(lambda (,a) ,exp2)))]
    [`(lambda (,a) ,a) 'i]
    [`(lambda (,a) ,b) `(k ,(lambda-to-ski b))]
    [`(,a ,b) `(,(lambda-to-ski a) ,(lambda-to-ski b))]
    [_ f]))