Code-Golf:模数除法

Question

挑战:

如果不使用您的语言提供的模数除法运算符,请编写一个程序,该程序将从用户获取两个整数输入,然后显示第一个数字模数除以第二个数字的结果.假设所有输入都是正数.

例:

    Input of first number:2
    Input of second number:2
    Result:0

谁赢:

如果您不知道Code Golf的工作原理,获胜者是以最少的字符编写此程序的人.

Answer 1

CSS:107个字符:)

CSS(ungolfed):

li {
    counter-increment: a;
}

li:after {
    content: counter(a);
}

li:nth-child(3n) { /* replace 3 with 2nd input ("b" in "a % b") */
    counter-reset: a;
    counter-increment: none;
}

伴随HTML: <ol> <li></li> <li></li> <li></li> <!-- etc. --> </ol>

输出:

输出http://img155.imageshack.us/img155/4643/modd.png

这在IE中不起作用(惊喜!).

Answer 2

J,10个字符

([-]*<.@%)

用法:

   10 ([-]*<.@%) 3
1

J,17个字符(输入为列表)

({.-{:*[:<.{.%{:)

用法:

  ({.-{:*[:<.{.%{:) 10 3
1

  ({.-{:*[:<.{.%{:) 225 13
4

说明:

我拿了一个图腾柱把它变成笑脸,它起作用了.

Answer 3

Golfscript,6 7 13个字符:

2*~/*-

用法(只输入golfscript的方式):

echo 14 3 | ruby golfscript.rb modulo.gs
2

说明:

2*~     #double the input string and eval (so now 14 3 14 3 are on the stack)
/       #int divide 14 / 3, gives quotient
*-      #multiply that result by 3, subtract from 14, gives remainder

Answer 4

RePeNt,5个字符

2?/*-

运行使用:

RePeNt mod.rpn 17 3
RePeNt "2?/*-" 17 3

RePeNt是一种基于堆栈的玩具语言,我自己在每个操作符/命令/循环中以反向波兰表示法(RPN)输入.当我整理一下时,我会释放翻译.

Command      Explanation                                              Stack
-------      -----------                                              -----

n/a          The program takes 2 parameters ( 17 3 ) and pushes them  17 3
             onto the stack
2            Pushes a 2 onto the stack                                17 3 2
?            Pops a number (x) off the stack + copies the last x      17 3 17 3
             stack items onto the stack
/            Divides on stack                                         17 3 5
*            Multiplies on stack                                      17 15
-            Subtracts on stack                                       2

Answer 5

Ruby(32):

p(a=gets.to_i)-a/(b=gets.to_i)*b

Answer 6

当然我不会赢,但这里什么都没有:

<?php  
$a=readline("#1:");  
$b=readline("#2:");  
while($b<=$a)$a-=$b;  
echo "Result: $a";  

Answer 7

我知道已有两个Ruby答案,但为什么不呢？以这种方式获得输入是一种不同的方法来敲掉几个字符.

Ruby 1.8.7 +,29个字符

a,n=*$*.map(&:to_i);p a-a*n/n

$ ruby a.rb 10 3
1