| #include <stdio.h> | |
| #include <stdlib.h> | |
| #include <stdbool.h> | |
| #define each(_a, _b) for (_a = 0; _a < _b; ++_a) | |
| bool dow(int a, int b, int c, int x) { | |
| return 0 == a*(x*x) + b*x + c; | |
| } |
| macro $ttos { | |
| case {_ $x} => { | |
| var pattern = #{$x}; | |
| var tokenString = pattern[0].token.value.toString(); | |
| var stringValue = makeValue(tokenString, #{$here}); | |
| return withSyntax($val = [stringValue]) { | |
| return #{$val}; | |
| } | |
| } | |
| } |
| import re;t=input();m=1 | |
| while m: | |
| m=re.search('\((\d+)(\w+)\)',t) | |
| if m:t=t[:m.start()]+int(m.group(1))*m.group(2)+t[m.end():] | |
| print(t) |
| module Main where | |
| import Control.Applicative ((<$>)) | |
| import Control.Monad (replicateM) | |
| import Text.Read (readMaybe) | |
| import Data.Maybe (fromJust) | |
| import System.IO (hFlush, stdout) | |
| import Text.Printf (printf) | |
| import Data.List (genericLength) |
| ''' | |
| The MIT License (MIT) | |
| Copyright (c) 2014 Maciej Goszczycki | |
| Permission is hereby granted, free of charge, to any person obtaining a copy | |
| of this software and associated documentation files (the "Software"), to deal | |
| in the Software without restriction, including without limitation the rights | |
| to use, copy, modify, merge, publish, distribute, sublicense, and/or sell | |
| copies of the Software, and to permit persons to whom the Software is |
| # Not using "offline" beacuse of the wait.. | |
| set allowed_statuses to {"online", "dnd", "invisible", "away"} | |
| set delay_time to 0.5 | |
| repeat | |
| repeat with status in allowed_statuses | |
| delay delay_time | |
| log "Chaning status to " & status | |
| tell application "Skype" | |
| send command "SET USERSTATUS " & status script name "Toggler" |
| ;; init.el - Maciej's Emacs config | |
| ;; Copyright (C) 2014 Maciej Goszczycki | |
| ;; This program is free software; you can redistribute it and/or | |
| ;; modify it under the terms of the GNU General Public License | |
| ;; as published by the Free Software Foundation; either version 2 | |
| ;; of the License, or (at your option) any later version. | |
| ;; This program is distributed in the hope that it will be useful, | |
| ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
| # Setup variables - chnage this to whatevery you want | |
| set emoticon_shape to " | |
| * * * *** | |
| * * ** | |
| *** * ** | |
| * * * | |
| * * * *" | |
| set emoticon_char to "(bow)" | |
| set match_length to 3 | |
| set message_target to "username" |
| ;;; usaco-mode.el - Mode for quickly testing USACO solutions | |
| ;; Copyright (C) 2014 Maciej Goszczycki | |
| ;; Author: Maciej Goszczycki <[email protected]> | |
| ;; Created: 9 October 2014 | |
| ;; Version: 0.0.0 | |
| ;; Keywords: compile run convenience | |
| ;;; Commentary: |
A simple program for PDP-8/e. It should work on other PDP-8s, but the Extended Arthmetic Element is required as it uses the MQ register. It creates a scrolling effect on the MQ (Multiplier Quotient) by left shfiting it, after a given time.
