小编ben*_*ers的帖子

SML/NJ:获取用户输入

在功能运行时如何提示用户输入?

user-input sml smlnj

4
推荐指数
2
解决办法
3007
查看次数

如何一步测量排序算法的时间?

我正在做一项练习,但我被困在一个点上

我想使用七个不同的数组来测量 3 种排序算法(冒泡、插入和选择)的排序时间。我尝试了多种方法,但无法在一步中测量所有数组的所有三种算法的排序时间。我的程序应该:

  • 用整数随机填充数组
  • 对它们进行排序
  • 测量时间
  • 打印时间

结果总是 0 毫秒,但不可能是这样,因为我尝试了 100 万个整数数组,所以不可能出现 0 毫秒。最后,我尝试了“for 循环”来实现我将要做什么。

我应该写下我的所有方法,因为您可能会在其他方法中发现其他错误。

public static void randomlyFillArray(int[] array, int a, int b) {
    for (int i = 0; i < array.length; i++) {
        array[i] = randomInt(a, b);
    }
}

public static int randomInt(int a, int b) {
    return (int) ((b - a + 1) * Math.random() + a);

}

public static void SelectionSort(int[] array) {

    for (int i = 0; i < array.length - 1; i++) …
Run Code Online (Sandbox Code Playgroud)

java arrays sorting algorithm

4
推荐指数
1
解决办法
8309
查看次数

输出格式:gfortran 中空格过多

使用 gfortran 4.6。这段代码:

PROGRAM f1
IMPLICIT NONE

INTEGER :: i=1, j=3

WRITE(*,*) "integer i is ", i, ", and j is ", j, "."
END PROGRAM f1
Run Code Online (Sandbox Code Playgroud)

产生这个控制台输出,其中有太多空格:

 integer i is            1 , and j is            3 .
Run Code Online (Sandbox Code Playgroud)

我是否可以设置一些设置,以便第一个标记(“整数”)之前没有空格,因此标记之间的空格只是一个空格?我知道一个解决方法是

WRITE(*,'(A,I1,A,I1,A)') "integer i is ", i, ", and j is ", j, "."
Run Code Online (Sandbox Code Playgroud)

但这似乎非常麻烦,每次我有一个 print 语句时都必须这样做 - 宁愿它更像 C++,在输出中显式写入任何空格。

formatting fortran gfortran output

3
推荐指数
1
解决办法
1990
查看次数

我可以从 Twilio API 批量购买号码吗

我正在尝试使用带有 Twilio API 的 c# 购买多个数字。但是目前我们必须一次购买一个号码,循环购买10-15个号码需要花费大量时间。

那么我如何通过 API 传递数字列表,从而减少从 twilio 购买数字的时间。

twilio

2
推荐指数
1
解决办法
1385
查看次数

全部:当且仅当列表的所有元素都为True时,返回True的函数

我正在寻找Racket中的内置函数,如果列表中的所有项都为真,则返回True.

我试过了:

(define (all lst)
  (when 
      (equal? lst '()) 
      #t)
  (if (not (car lst))
      #f
      (all (cdr lst))))
Run Code Online (Sandbox Code Playgroud)

给出错误:

car: contract violation
  expected: pair?
  given: '()
Run Code Online (Sandbox Code Playgroud)

几个测试用例:

(all '(#t #f #t)) ; #f
(all '(#t #t #t)) ; #t
Run Code Online (Sandbox Code Playgroud)

你能解决它还是指向内置功能?(我用谷歌搜索,但没有得到有意义的结果)

scheme racket

1
推荐指数
2
解决办法
2817
查看次数

在Racket中if-then-else的语法

我对Racket有疑问.

(我正在使用http://docs.racket-lang.org/guide/conditionals.html上的教程)

我试着编写一个执行此操作的函数:如果x小于4,则应该增加1,否则应该乘以2.

(define (number x)
  (if (< x 4) 'x+1 'x*2))
Run Code Online (Sandbox Code Playgroud)

所以我在DrRacket上编译它,但它没有做任何事情.该(if (< x 5) 'x+1 'x*2))-Part被标记为黑色!我认为问题就在'于此.

syntax scheme racket

0
推荐指数
1
解决办法
1123
查看次数