Name: Anonymous 2012-01-21 6:59
How come it isn't used outside of academia?
def make_account_class():
"""Return the Account class, which has deposit and withdraw methods."""
def __init__(self, account_holder):
self['set']('holder', account_holder)
self['set']('balance', 0)
def deposit(self, amount):
"""Increase the account balance by amount and return the new balance."""
new_balance = self['get']('balance') + amount
self['set']('balance', new_balance)
return self['get']('balance')
def withdraw(self, amount):
"""Decrease the account balance by amount and return the new balance."""
balance = self['get']('balance')
if amount > balance:
return 'Insufficient funds'
self['set']('balance', balance - amount)
return self['get']('balance')
return make_class({'__init__': __init__,
'deposit': deposit,
'withdraw': withdraw,
'interest': 0.02}) def deposit(self, amount):
"""Increase the account balance by amount and return the new balance."""
new_balance = self['get']('balance') + amount
self['set']('balance', new_balance)
return self['get']('balance')(define (deposit amount)
(set! balance (+ balance amount))
balance)
..`++``
`:hddddhhdd:
:hddhhhhhhhhhy-
sdddddhhhhhhhhhd/
.dhmmdhhhhhhhhhhhd`
+dddhhddddhddhhhhds
/mhhhds++oyh+sdddhd- ``
ymdhds-...--///yy/oyo+++oooo+/-`
hmmmm/....+yo-...++o+oo/////++oss+-`
.hmydd+/+ymdy-...oy/--y/////////+shho-
:o`/yydo+o+-....+yoooy///////////oymyo`
-ooh:.---:/+.oysydsss+/////+oyo++osy:
` `ossssy+s+/o:hhhhyyydyo+/+syo:....:od/
`. ` /yyyohdNd+/hhyyyyyydmdyohso+:-.....:y+`
` :-:ossmmhyo+odhhyyyyyyyhdmdhsso+/--..../+-
`./+++/ohy//syhhhhdo-:yhhdddhyyhhhyso+/:-...++`
`/so/::+s++/++odoossy- `/ohyyyyyyyyyhhhyso+:-.:+-
.+soso:+o+::+-` .y+-+oy: :yyyyyyyyyyyyhdmds+-..s-
.oy+:o+:/oo+/+-.. oy.-oyo hNmddhhhddmmNNmso:../+
.. o::yo:-++/yho-+: oy.-ooy .+hyhddmhhmdhhhdoo:..//
`+-.o+ooh/:::/sy- .sd.:ooh +shyhhhddhddddhdso:..o:
`o-.oo/://:::/o+` .o::ooh .sodhhhhmhhNNmhdy+-.-yy
.+o//:://:/+y` -+-oss `soyhhddddhdmmddh+-.:hh.
+o/://::os/++/.` y.+s+ ooodhhhmdmmddyyh+-.+ss/
:s:--+:::+o/o: - //:ssoyoyhhhhhdmhooo+-./yo+s .://+y:
:` ` -os+sh/:/s::/o+ `s.+o+shdhhhhhhdhs+/-/yhhsy. -/+/--ohys-
+/ .: ` :/os///:::+//o/-` / /+-oohmmdhhhhhdssyhhhhhhh+ .+:.-/shhy++y`
/y+ ++s` .+: -/::-:oss+::::o/ `o`:/h:ossymmmhhhhdshdooooshh` os+//dyyyys++os`
`s:-h/ :s+/ .+: `+o/:-:+oyyyo::++ `ysyhoydymhmhhho.sdhh++++od: -.`` /dyyy+++++o
oosys+ +oy `. .y+:-:o/+o:+/:/y` ``yymhhdmhhhs- +hhh++++oy ohhs+++++s-
` .o///s: `/- .+--s/:--++::+:::ss: +. oy+oshhhhd: ohyo++oyhd: `hyo++ooosy-----------.`
//::/s/s/-` `/. oo+s/--:::s+oys+`` `.--.oys+shhhhs. hhy+++hmyooo` //+so+++//:/:::::::::::/:
`. . ++/::/+/+y.. ` /+/+o:--:::/+o:` -+ `:+:/so+/ss++yhhhh/` /hhysooyds++os- ..--..-y--.-:.-::/-::-:---:::-/:
` y/:s:/::::/yyo ..++:o///++:::/s- -s. `/oo++/-` :y+oyhhho. -yhyhhyo++++oy/ -+ydddhhho.../o-shoh-oyyhhsydoy:+-
-sshss::::::y+-.-so/::oo++oo:///y: :: `+- ./o-`` :yoshhhy: :dhhhhyo+++++y/ o-hyhhmhd:...:o//+:o-+o//+///-+:o.
`y+/+yo/+s/::oo +o++:-osh+o+:+yo+/`-` `++`.`.``/-.-/:yosdhho` :shhhhho+++++y- o:dydmhhh..-..::::::::::::--:+/:y`
`oo///o:+s/::/s::/oy:+y:/o+:::+o+/ys-/oso+os/``:++odyoydho- -ohhhhs++++oy` o-osyso+/:.:.o/oy+osyyssdshodys/y
-y/:/+::/:::/os+++oo:-/s+:/oo+osho+/////+- `/+:/sdydNd/ .+yhdyo+++sy:o` y-.-///+-y//-y+y+om+oyyhhsyshh+.y
``+o:sso/://:://++++::::ooo+oh+oso////s+/+//+///smdmNNdo `-- `:ydhosyhyyo h./+ooo:/do/.osyssdsosyosssssy-.y
/oos/+o//::yy/////:o:/oo::oooo+/+y/::/ys/////:.+NMMNMMN. .os: `omdddhyss.` h++++::/s/./..---/oos+y+ysyo:...y
`-os+::///y+::///o+/+s++s+/:+o//:::+/////+o///dmdMMMMN+-+/`` . `+ssmmmNNNh. .yh+//+o/-../.....o+sdoosoooo-...y
-ooo+s+:://:s+//ohy///oo////os/::/://///////+/+oosmNh+osy+/:::o///:/::::::::::-::....mMMMMMMm- ````./::/os+s+/-:.::--.....yoosho+doyy....y
.:ydo+/://////os/+so/////////+yo//////:::::+//ss//+///+soydhysyyyssys+yyhhssyyhh++odMMMMMMMNs./oyooh/+ssossys+/-/yo+o:...-oo/+++/oooo----y
`+ooshssssssosshysossysoossssssysossyso+///+oosoooosyyoooohyooooosy+sys//+so++++oo++NMMMMMMMNy-`/yoo/s++++oo+ssodyshssoooooooooooooooo+++++/
.::---....-:/+yhsoyydmy:.+yso/``````.+oo::/++..+++:-++:` `-::::--.``-. :://``+s+::/+mNmdhys+:` :o//://` `- ``..../+-`-+.---.``
:/- /oo+o//syy/o+//+y-.--..::` .::- .--. -/. `.. `` ````` -/ ...--.` `-/++++..oo- /oossho/.
-::::::/+//////:. -/:` .o+:.`` `:.`..
.`
(for-each (lambda (thread)
(for-each (lambda (post)
(if (eq (mod (number post) 11) 0)
(reply :thread thread
:name ""
:email "sage"
:text ">>%d nice dubz bro[i]![/i]")))
(post-list thread)))
thread-list)
(defun repeated-digits-unit (digits)
(if (eq digits 1)
1
(+ (expt (repeated-digits-unit (- digits 1)) 10) 1)))
(defun maximum-repeating-postfix-digits (num)
(labels ((check-digits (digits)
(cond ((eq digits 1) 1)
((eq (mod (mod num (expt 10 digits))
(repeated-digits-unit digits))
0)
digits)
(t check-digits (- digits 1)))))
(check-digits (ceiling (log 10 num)))))
(for-each (lambda (thread)
(for-each (lambda (post)
(let* ((post-number (number post)))
((arity (maximum-repeating-postfix-digits post-number)))
(if (> arity 1)
(reply :thread thread
:name ""
:email "sage"
:text (concat ">>"
(string post-number)
" "
(cond ((eq? arity 2) "nice double bro[i]![/i]")
((eq? arity 3) "whoa shit! trips! nice trips bro!")
((eq? arity 4) "quads! fucken quads! screen cap this shit /b/ros!")
((eq? arity 5) "Lok@demQUINTS! EPIC QUINTS BRO!")
((eq? arity 6) "those are some sexy sextupples bro.")
(t "I don't even know the name for that many tuppels bro.")))))))
(post-list thread)))
thread-list)
(define reversed-digit-stream (num base)
(lambda ()
(if (= num 0)
#f
(let ((value (mod num base)))
(set! num (/ num base))
value))))
(define (maximum-repeating-prefix-length stream)
(letrec ((first-value (stream)))
((helper (lambda (count)
(if (eq? (stream) first-value)
(helper (+ count 1))
count)))))
(if (eq? first-value #f)
0
(helper 1))))
(define (maximum-repeating-postfix-digits num base)
(maximum-repeating-prefix-length (reversed-digit-stream num base)))
(defn dubz? [d]
(>=
(count (filter
(fn equal-parts? [n]
(= 1 (count (distinct (partition n (str d))))))
(rest
((fn factorize [n]
(map
#(/ n %)
(filter #(zero? (rem n %)) (range 1 (+ n 1)))))
(count (str d))))))
1))
(dubz? 1)
=> false
(dubz? 11)
=> true
(dubz? 123)
=> false
(dubz? 123123)
=> true
(dubz? 'dubzdubzdubz)
=> true
(defn tupz [d]
(let [d (str d) l (count d)]
(reduce (fn [tuples size]
(if (= 1 (count (distinct (partition size d))))
(assoc tuples (/ l size) (subs d 0 size))
tuples))
{}
((fn factorize [n]
(filter #(zero? (rem n %)) (range 1 n)))
l))))
(defn dubz? [n] (contains? (tupz n) 2))
(defn quadz? [n] (contains? (tupz n) 4))
(dubz? 123123)
=> true
(dubz? 123123123123)
=> true
(quadz? 123123)
=> false
(quadz? 123123123123)
=> true
(tupz 123123123123)
=> {2 "123123", 4 "123"}#include <string.h>
int dubs(char *dubs) {
size_t n = strlen(dubs);
if (n < 2) return 0;
if (dubs[n-1] == dubs[n-2]) return 1;
return 0;
}
+/∧\⊖N[⍴N]⍷N←((⌈10⍟1+N)/10)⊤N←1123456777=/10 10⊤12344